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INSTANT  SPECTRUM 
PROGRAMMING 

This  learning  kit  is  made  up  of  three  elements-the  tape,  the 
program  listings  which  follow  this  introduction,  and  the  game  and 
demonstration  programs  which  follow  the  script  of  the  spoken  word 
cassette. 

You  are  strongly  advised  to  listen  to  the  tape  only  with  your 
computer  turned  on.  You  should  make  sure  that,  at  the  very  least, 
you  run  the  tape  with  your  computer  turned  on  the  very  first  time  you 
hear  it  To  do  otherwise  will  greatly  diminish  the  value  of  the  tape. 

After  the  first  listening,  you  may  find  some  value  in  just  listening  to  it, 
so  long  as  you  refer  to  the  program  listings.  Once  you've  heard  it 
several  times  you  may  wish  to  read  the  whole  ‘script  .  It  follows  the 
program  listings. 

After  the  script  you’ll  find  a  number  of  programs  which  you  should 
enjoy  entering  and  running.  Special  thanks  to  Peter  Shaw  who 
helped  prepare  many  of  the  programs  for  this  book. 


Tim  Hartnell, 
January,  1983 
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A 


10  PRINT  "t  im 
30  BEEP  1,1 
30  GO  TO  10 


Program  B 


10  PRINT  "  t  i  »  " 
IB  REM  hallo 
30  BEEP  1,1 
30  GO  TO  10 


Program  c 


10  INPUT  a* 

20  INPUT  b 
30  LET  C=btb 

4.0  PRINT  "hallo  "ra*  %  ^ 

50  PRINT  "your  nuabcr  ii<  ;  b 
60  PRINT  c;  "  is  dovbti  ;b 


hello  t i a 

your  number  mas  33 
46  is  double  23 


Program  D 


10  INPUT  a  $ 

20  INPUT  b 
30  LET  Csb+b 
40  print  "hello  ";ag 
50  PRINT  '"your  number 
60  print  c; R  is  double 


mas 


;  b 


4*  4 

* 


b 
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Progra*  E 


10  INPUT  af 
30  INPUT  b 
30  LET  C-b  +  b 

40  PRINT  TRB  8;  "be  i  lo  ,';a> 

50  PRINT  '"your  number  mas  ";b 
60  PRINT  c;"  is  double  *;b 


hello  tie 

your  nuatcf  mas  342 
$84  is  double  842 


Program  F 


10  input  "in*?  ";a 

20  INPUT  "paper?  ";b 

30  input  "position  across?  c 

40  IP  C<0  OR  031  THEN  GO  to  3 

0 

50  INPUT  "position  doun?  ” ; d 
60  xr  d <0  OR  d>19  THEN  GO  TO  5 

0 

70  PRINT  RT  d  ,  C  ,  INK  a;  PAPER 

b  ** 

■*  00  GO  TO  10 


Program  g 


10  BORDER  0 
20  INK  2 
30  PAPER  6 
40  CL5 

50  INPUT  "give  *e  a  number  " ;  a 
60  input  "and  another  ";b 
?0  ir  a>i  and  b > l  then  print  a 
and  b;  "  are  both  positive" 
00  PAU5E  200:  GO  TO  40 


B 


Program  H 


10  ©ORDER  0 
20  INK  2 
30  PAPER  RND*7 
40  CL5 

45  PRU3E  25.  GO  TO  30 
50  INPUT  "give  ae  a  number  ";  a 
so  input  "and  another  ";b 

70  IF  a  >1  AND  b  >  1  THEN  PRINT  a 
; and  ";b;"  are  both  positive" 
50  PAUSE  200:  GO  TO  40 


Program  I 


10  LET  a=RND 
20  PRINT  3 
30  GO  TO  10 


Prograa  u 


10  LET  a  aINT  (RND»10)  +1 
20  PRINT  a 
30  GO  TO  10 


Prograa  K 

10  PRINT  *  “Stand  -by" 

20  PAUSE  50 
30  PRINT  '  "die  one “ 

40  PAUSE  50 
50  GO  SUB  130 
60  PAUSE  50 
70  PRINT  '"die  t¥0" 

30  PAUSE  50 
90  GO  SUB  130 
100  PAUSE  100 
110  CLS 
120  GO  TO  10 
130  rem  subroutine 
140  BEEP  • 0SjRHD #50 
150  PRINT  I NT  (RND*6) +1 
160  RETURN 
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Pro9r*m  L 


10  FOR  a«l  TO  IS 
a0  PRINT  a 
30  BMP  .1,1 
4.0  PAUSE  20 
50  NEXT  a 


pro9r«i  M 


10  FOrt  a a -IS  TO  0 
20  PRINT  a 
30  BEEP  . l,a 
4.0  PAUSE  20 
90  NEXT  a 


Program  N 


10  FOR  a  *4.0  TO  0  STEP  -4- 
20  PRINT  a 
30  BEEP  .  1 ,  a 
4.0  PAUSE  20 
50  NEXT  a 


Prograi  O 


10 

PRINT 

AT 

0,0;  FLASH 

l;  "  US  t 

20 

INPUT 

a*: 

IF  a 

THEN  ST 

OP 

30 

PRINT 

AT 

0,0;  FLASH 

0;  "ttst 

4.0 

OP 

50 

INPIFT 

RUN 

a*: 

IF  ala-s** 

THEN  ST 

10 


Prosrft*  P 


10 

sr 

PRINT 

AT 

0,0;  INVERSE  1, 

20 

OP 

INPUT 

4$; 

IF  4 THEN 

ST 

30 

St" 

PRINT 

AT 

0,0;  INVERSE  0; 

M  im 

4.0 

OP 

50 

INPUT 

RUN 

40; 

IF  a$s”s”  THEN 

ST 

Program  Q 


10  DIM  A(5J 
20  FOP  B*1  TO  5 
30  INPUT  A  fBJ 
4-0  NEXT  D 
50  PAUSE  100 
00  FOR  B«1  TO  B 

70  print 

90  NEXT  8 


IS  **;  A  IB> 


Prograi  R 

10  DIM  Afi5,10J 
20  FOR  B>1  TO  5 
30  INPUT  AS  18 > 

4.0  NEXT  8 
50  PAUSE  100 
80  FOR  Bml  TO  5 

70  PRINT  ")  IS  -;A$fBJ 

80  NEXT  B 


Program  s 


10  DIM  AC3J 
20  DIM  A0  C 3/5) 

30  FOR  BbI  TO  3 
4.0  READ  A  IBJ 
50  READ  A$tB> 

60  NEXT  B 
70  FOR  C*1  TO  3 
80  PRINT  ACC) 

90  PAUSE  30 
100  PRINT  ASCC3 
110  PAUSE  30 
xae  next  c 

130  DATA  99,  “HELLO ”  >4.294. 

14.0  DATA  "HEART”,  -32S76,  ’’BONES*' 
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Welcome  to  this  cassette,  INSTANT  SPECTRUM 
PROGRAMMING,  On  this  tape  I  wMI  be  leading  you  through  most  of 
the  functions  available  from  the  SPECTRUM  keyboard.  The  tape  is 
designed  to  make  the  process  of  learning  to  program  as  easy  as 
possible.  While  the  tape  is  running  I’ll  assume  you  will  have  your 
SPECTRUM  connected  up  as  shown  in  the  manual  and  also  that 
you  have  the  booklet  that  accompanies  this  tape  by  you. 

This  tape  is  not  designed  to  be  listened  to  right  through  without 
taking  a  break.  Rather,  I  think  it  he  best  if  you  listen  to  the 
description  of  a  particular  command  or  function  on  the 
SPECTRUM,  trying  out  the  programs  when  we  come  to  them,  then 
stop  the  tape  and  keep  on  experimenting  with  the  particular 
command  we  have  just  discussed. 

If  you  are  not  quite  sure  what  I  mean  by  some  of  the  things  I  say  you 
can  listen  to  that  section  of  the  tape  a  number  of  times  until  it  is 
clear.  From  time  to  time,  of  course.  I  will  be  referring  to  the  booklet 
that  comes  with  this  tape.  There  are  a  number  of  program 
fragments  there  which  we  will  be  using  in  the  process  of  learning. 

The  first  thing  we  would  like  to  look  at  is  the  keyboard.  The 
SPECTRUM  keyboard  is  somewhat  bewildering  when  you  first 
look  at  it— it  seems  there  are  so  many  words  written  on  the  keys  that 
you!  never  be  able  to  work  out  what  they  all  mean,  tt's  worth  teii^g 
patient  at  this  stage -following  through  the  instructions  that  I  give 
you,  step  by  step.  You'd  be  surprised  at  how  easy  it  is  to  figure  out 
the  maze  of  words  and  symbols  which  confront  you  at  the  moment. 

We’d  start  by  looking  at  two  very  important  keys  which  you  wMI  find 
on  the  bottom  row.  In  the  left  hand  comer  there  is  the  key  marked 
CAPS  SHIFT  and  second  from  the  right  in  the  bottom  row  is 
SYMBOL  SHIFT.  These  keys  are  probably  the  most  two  important 
ones  on  the  entire  keyboard.  These  are  the  keys  that  decide  what 
you  are  going  to  get  when  you  actually  hit  a  particular  key. 

Start  by  pressing  the  Z  key  which  is  right  next  to  the  CAPS  SHIFT, 
the  second  one  across  from  the  bottom.  The  word  COPY  will 
appear  on  the  screen.  Holding  down  CAPS  SHIFT  press  the  zero 
key -the  one  in  the  extreme  top  right  hand  comer.  If  you  do  this,  the 
word  COPY  wMI  disappear.  Holding  down  CAPS  SHIFT  and 
pressing  the  zero  key  acts  as  a  Tub  out'.  The  word  above  the  key  is 
DELETE  which  you  get  by  holding  down  the  white  shift  key. 

You  get  the  white  words  above  keys  by  holding  down  the  SHIFT 
KEY  and  then  pressing  the  relevant  keys.  Now  the  words  in  white 
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are,  on  the  top  row  starting  from  the  left,  EDIT  above  the  1  key  ano 
then  CAPS  LOCK  above  2,  TRUE  VIDEO  above  3  and  IN V.  VIDEO 
which  stands  lor  inverse  video  above  4.  Above  the  9  there  is  the 
word  GRAPHICS  and  the  word  DELETE,  which  we  have  already 
seen,  is  above  the  zero  key. 

It  you  let  go  of  the  CAPS  SHIFT  key  and  hold  down  the  RED 
SYMBOL  SHIFT,  (that's  the  one  on  the  right  hand  side  on  the 
bottom  row)  and  then  press  a  key  such  as  the  O  key,  you  should  get 
a  semi-colon  appearing  on  the  screen.  The  semi-colon,  as  you  can 
see,  is  written  above  thal  funny  word  POKE  on  the  key.  Still  holding 
down  the  red  key,  press  the  G  key  (about  the  middle  of  the 
keyboard)  and  the  word  THEN  wiH  appeapf/So.  you  can  see  that  you 
get  the  red  word  or  symbol  on  a  key  tfy  holding  down  the  RED 
SYMBOL  SHIFT  KEY,  then  pressing  the  relevant  key. 

To  get  the  words  in  green  above  a  key,  you  need  to  press  both 
SHIFT  KEYS  at  once,  then  let  them  go  and  touch  the  relevant  key. 
Try  it  now  by  pressing  both  CAPS  SHIFT  and  SYMBOL  SHIFT  at 
the  same  time.  Hold  them  down,  let  them  gcTthen  press  the  T  key. 
That's  hold  both  down,  let  them  go  and  then  press  the  T  key.  The 
word  RND  should  appear. 

The  only  other  thing  we  have  to  look  at  in  the  use  of  the  SHIFT 
KEYS,  are  the  red  words  underneath  the  keys.  To  get  these  you 
hold  down  both  SHIFT  KEYS  at  once,  then  release  CAPS  SHIFT 
(take  your  left  jjand  finger  off)  but  continue  to  hold  down  the 
SYMBOL  SHIFT  KEYS.  Then  you  press  the  needed  key. 

n*v 

By  pressing  the  Z  key  should  get  you  the  word  BEEP.  Try  it.  Press 
both  SHIFT  KEYS  down  at  once,  then  lift  your  left  hand  finger  that's 
holding  dawn  CAPS  SHIFT  while  leaving  your  right  hand  finger  on 
SYMBOL  SHIFT.  Now,  press  the  Z  key  and  the  word  BEEP  should 
appear.  This  is  the  way  you  get  words  like  INK,  PAPER.  FLASH, 
BRIGHT,  OVER,  and  INVERSE,  the  words  in  red  underneath  the 
letters. 

Hold  down  CAPS  SHIFT  and  put  your  finger  on  the  zero  key  until 
you  have  rubbed  out  everything  you  have  entered  so  far.  Ak-that, 
perhaps,  is  not  totally  dear  yet  but  you  now  know  the  rudiments  of 
working  the  keyboard.  I  suggest  you  now  wind  the  tape  back  to  the 
beginning  and  go  through  it  aR  again. 

Before  you  do,  there's  one  more  thing  I  would  lice  to  discuss  about 
the  keyboard  at  this  stage -the  use  of  the  GRAPHICS.  If  you  hold 
down  CAPS  SHIFT  and  then  press  the  9  key  you'll  see  that  the 


CURSOR,  (that  little  black  object  which  has  been  following  you 
around  since  you  began  typing  into  the  computer)  has  turned  into  a 
G  (lor  GRAPHICS).  If  you  press  the  8  key,  still  holding  down  CAPS 
SHIFT,  youll  see  you  get  a  little  solid  square  as  shown  on  the  key. 
Try  going  across  now-7, 6. 5, 4, 3, 2,  i.- and  you ’Usee  that  in  each 
case  you  get  the  little  design  shown  on  the  key.  These  can  be  used 
to  build  up  pictures. 

If  you  look  at  the  right  hand  side  of  your  SPECTRUM,  you  'll  see  the 
second  key  from  the  bottom  has  the  word  ENTER  on  it.  The  ENTER 
key  is  one  of  the  most  important  ones  on  the  keyboard.  You  use  it 
after  you  have  typed  in  a  program  line  to  tell  the  computer  you  have 
finished  it  and  enters  it  into  the  main  body  of  the  computer. 

If  you  now  look  at  the  R  key  you'll  see  the  word  RUN.  If  you  have  a 
program  in  your  computer,  and  you  press  RUN,  the  computer  is 
almost  ready  then  to  go  through  and  do  what  it  has  to  do  from  the 
program.  All  you  have  to  do  is  press  ENTER  (after  pressing  the  R 
key  for  RUN).  Then  the  computer  will  run  the  program.  In  general 
terms,  you  have  to  press  ENTER  to  get  the  computer  to  execute 
anything  which  you  have  just  entered. 

It's  time  that  we  had  a  look  at  our  first  program.  Make  sure  there's 
absolutely  nothing  in  the  computer.  The  best  idea  is  to  turn  off  the 
power  and  then  turn  it  on  again.  This  is  not  always  advisable,  but  in 
this  particular  case  it  is  the  simplest  way  of  'emptying'  the  compu¬ 
ter.  We  are  now  going  to  enter  the  first  program,  the  one  marked  A 
in  the  booklet. 

A 


10  PRINT  "tie** 
20  BEEP  1,1 
30  GO  TO  10 


Type  in  the  number  to  and  then  press  the  P  key.  If  you  do  this  the 
word  PRINT  will  appear.  Now  hold  down  the  SYMBOL  SHIFT  KEY 
(the  red  one  second  from  the  right  on  the  bottom)  and  press  the  P 
key  again.  It  all  is  well  a  little  double  quote  mark  will  appear.  Now 
type  in  your  name.  Once  you  have  done  this,  hold  down  the  SYM¬ 
BOL  SHIFT  KEY  again  and  press  the  P  key  and  again  you  will  get 
the  little  quote  mark.  Now  press  the  ENTER  key  and  you'll  see  that 
the  program  line  you  have  just  written  goes  to  the  top  of  the  screen. 
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This  means  it  has  been  accepted  by  the  computer.  Now  type  In  the 
number  20.  Hold  both  SHIFT  KEYS  down  (the  CAPS  SHIFT  KEY 
on  the  left  and  the  RED  SYMBOL  SHIFT)  at  the  same  time.  Then, 
let  go  the  CAPS  SHIFT  with  your  left  hand  stilt  holding  the  SYMBOL 
SHIFT  with  your  right  and  press  the  Z  key.  The  word  BEEP  will 
appear  Now  press  the  number  1 .  Follow  this  by  holding  down  the 
RED  SYMBOL  SHIFT  and  press  the  N  key.  Youll  get  a  tittle 
comma.  Then  press  the  number  1  again.  Your  line  should  read  as  in 
program  A,  20  BEEP  1,  1. 

When  you  are  satisfied  with  this,  press  the  ENTER  key  and  the  new 
line  will  join  the  10  line  at  the  top  of  the  screen.  Now  type  in  30 
followed  by  the  command  QO  TO,  which  you  will  get  by  pressing 
the  Q  key.  Notice  that  the  first  time  you  press  a  key  after  you  have 
entered  a  program  line  number  the  word  in  white  on  the  key 
appears.  This  is  known  as  a  ‘key  word.’  Now  if  all  is  well,  you've  got 
30  QO  TO.  Now  type  in  the  number  ten  (10)  and  press  ENTER. 

At  the  top  of  your  screen  you  now  have  your  very  first  program,  a 
three -line  program  numbered  in  tens.  Although  the  SPECTRUM 
will  accept  line  numbers  between  1  and  9999,  we  tend  to  work  In 
tens  because  it  makes  it  fairly  easy  to  insert  new  lines  in  between 
the  others  H  we  discoverweneed  to  later  otl 

I  suggest  that  once  you  have  the  program  running  you  turn  off  the 
tape  and  play  with  the  program  for  a  while.  Press  the  R  key  so  the 
word  RUN  appears  and  then  press  ENTER.  You'd  find  that  the 
screen  will  slowly  fill  up  with  your  name  making  a  fairly  monotonous 
noise  as  it  does  so.  It  wHI  eventually  stop  with  the  word  'scroll'  and  a 
question  mark  at  the  bottom.  If  you  press  any  key  on  the  keyboard 
(except  for  BREAK  SPACE)  you’ll  find  out  that  the  program  will 
continue.  When  you  are  tired  of  running  this  program  press  BREAK 
SPACE,  and  It  wdl  stop. 

Now  that  you  have  run  that  program,  it  Is  time  to  look  at  our  next 
important  word -REM.  Youll  find  the  REM  on  the  E  key.  REM 
stands  for  REMARK  and  a  REMARK  In  a  program  is  there  only  for 
your  benefit;  the  computer  Ignores  it  completely. 

Let  me  show  you  how  It  works.  Type  in  the  number  15  then  press 
the  E  key  and  the  word  REM  will  appear.  Now  put  anything  you  lice 
after  that;  maybe  you  could  put  HELLO  or  something.  Just  type  in  a 
word.  Press  the  ENTER  key  again  and  youll  find  that  line  15 
automabcaly  moves  up  to  its  correct  position  between  lines  1 0  and 
20  as  you  can  see  In  program  B. 
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B 


10  PRINT  ’*  t  i  •  ’* 

15  REM  hello 
20  BEEP  1,1 
30  GO  TO  10 

It  your  program  doesn't  look  like  program  B  you  have  done  some¬ 
thing  wrong  so  I  suggest  you  re-wind  the  tape  slightly  and  see  what 
you  have  left  out.  Now  run  the  program  again  and  you  should  find 
that  the  REM  statement  makes  no  difference  at  all.  Stop  the  tape, 
run  the  program  and  then  come  back  to  the  tape.  The  computer 
ignores  REM  statements  as  you  can  see. 

We  can  look  now  at  another  word  In  white  above  the  keys  that  is 
very  important,  the  word  EDIT  which  is  above  the  1  key.  If  you  look 
at  your  program  on  the  screen,  you'll  see  that  there  is  a  little 
sideways  V  pointing  at  line  15,  the  latest  line  you  entered.  If  you 
hold  down  CAPS  SHIFT  and  then  press  1  youll  see  line  15  comes 
to  the  bottom  of  the  screen.  Now  when  it's  at  the  bottom  of  the 
screen  you  can  easily  modify  it.  Still  holding  down  CAPS  SHIFT 
press  the  8  key  and  you’ll  see  that  the  cursor  moves  across  the 
REM  statement.  First  it  jumps  across  the  word  REM  in  one  jump, 
and  then  goes  through  the  letters  HELLO  or  whatever  word  you 
have  got  in  line  15,  one  by  one.  Get  the  cursor  to  the  very  end,  and 
still  holding  down  CAPS  SHIFT,  press  the  zero  key  (DELETE). 
You'll  see  that,  one  by  one,  the  letters  wll  be  rubbed  out.  Once  you 
have  rubbed  out  the  word  HELLO,  type  anything  else  you  like. 

Then  let  go  of  CAPS  SHIFT  and  press  the  ENTER  key.  You'll  see 
the  new  version  of  line  15  takes  the  place  of  the  old  line  1 5  at  the 
top.  The  EDIT  key  is  very  useful  for  changing  the  contents  of 
program  lines  without  having  to  type  the  entire  line  aN  over  again.  It 
doesn't  matter  much  when  there's  a  short  line,  but  with  a  long  line 
youll  appreciate  how  useful  it  is  to  change  program  lines  in  this 
way. 

As  you  have  just  seen,  the  5, 6,  7  and  8  keys  are  useful  for  moving 
the  cursor  around.  You  saw  that  k  jumped  across  REM  and  then 
HELLO  in  your  original  line  1 5.  If  you  had  then  used  the  5  key  you 
could  have  moved  the  cursor  back,  Youll  see  that  the  little  side¬ 
ways  V  which  is  a  “greater  than"  sign  is  still  pointing  at  line  15.  W  you 
hold  down  the  CAPS  SHIFT  and  press  the  7  youll  see  that  this 
“greater  than"  sign  moves  up  to  line  10.  Pressing  the  6  will  move, 
eventually,  right  to  the  end  of  the  program.  Now  the  line  that  the 
cursor  is  pointing  to.  is  the  line  that  you  are  able  to  EDIT.  Move  the 
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cursor  back  up  to  the  top  (up  to  line  10)  by  holding  down  CAPS 
SHIFT  and  press  the  7.  Then  press  the  1  key  (the  EDIT  key)  and 
you  win  see  that  line  10  comes  to  the  bottom  of  the  screen.  Press 
ENTER  and  the  line  1 0  disappears  from  the  bottom  to  Join  the  rest 
of  the  program  at  the  top. 

I  think  we  have  had  enough  of  that  particular  program,  it  is  very 
easy  to  get  rid  of  a  program  in  the  computer  without  turning  the 
power  off.  Press  the  A  key  and  you  will  see  the  word  NEW  appear. 
Press  ENTER,  You'll  see  the  screen  goes  black  and  then  clears 
just  leaving  the  words  COPYRIGHT  SINCLAIR  RESEARCH  at  the 
bottom.  To  check  that  there  is  nothing  in  the  computer,  press  LIST 
(on  the  K  key)  and  then  press  ENTER,  tf  there  is  program  in  the 
computer,  it  will  appear  on  the  screen.  As  it  is  empty,  all  you  get  is 
the  message  0  OKt  0:1  at  the  bottom  of  the  screen. 

We  are  now  going  to  enter  the  next  program,  program  C  from  the 
booklet.  Instead  of  reading  out  the  program  letter  by  letter,  this  time 
I'd  like  you  to  copy  it  from  the  booklet. 

c 

10  INPUT  a  % 

20  INPUT  b 
30  l_ET  C=b+b 

4.0  print  ‘hello 

5e  print  'your  nuiber  was  “;b 
©0  PRINT  c;“  is  double  b 


hello  tin 

your  nuftber  was  S3 
4.6  is  double  S3 

There  are  a  few  things  to  watch  when  you  do  copy  it.  If  you  are 
looking  at  program  C  now  you'll  see  the  first  line  reads  10  INPUT  a 
$.  You’d  get  the  dolar  sign  from  the  4  key  by  holding  down  the 
SYMBOL  SHIFT  (the  red  shift  key)  and  then  pressing  the  4,  so  that 
the  dollar  appears.  The  equals  sign  in  line  90,  and  the  plus  sign  you 
get  using  the  SYMBOL  SHIFT -the  equals  is  on  the  L  or  LET  key, 
and  the  plus  sign  is  next  to  it  on  the  K  or  LIST  key.  In  line  40  you'll 
see  that  after  the  word  hello  there  is  a  semi  colon.  This  is  very 
important.  You  win  find  that  the  computer  will  not  accept  the  line 
without  it.  The  semi  colon  is  on  the  O  key. 

Apart  from  that  you  should  have  no  real  problems  with  the  program 
so  I  suggest  you  turn  off  the  tape,  enter  the  program  then  come 
back  to  the  tape  for  an  explanation  of  what  to  do  with  it. 
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I  assume  now  you  have  program  C  in  your  computer.  Press  RUN 
the  R  key,  tolowed  by  ENTER. 

What  you  see  at  the  bottom  of  the  screen  now  occurs  when  the 
computer  is  waiting  for  an  input,  that  is,  it’s  waiting  for  you  to  enter 
something.  Type  in  your  name  and  when  you  have  done  this, 
press  ENTER.  You'l  see  that  the  computer  then  waits  for  another 
input.  This  time  it’s  a  NUMERICAL  input  it  wants.  Enter  a  number, 
press  ENTER  again.  If  all  is  well  the  computer  should  now  print  up 
’hello'  and  your  name,  Your  number  was’  and  whatever  your 
number  was,  and  then  another  number  Is  double'  and  your  number 
again.  Press  LIST  then  ENTER  so  that  the  program  comes  back  up 
on  the  screen.  I  wfll  now  lead  you  through  It  Nne  by  line  we  can  learn 
a  lot  from  this  simple  program. 

The  INPUT  command  (and  you  got  the  input  from  the  I  key)  tells  the 
computer  to  wait  for  you  to  enter  something  from  the  keyboard.  The 
a$,  b  and  the  c  are  variables.  If  there  Is  a  dollar  sign  alter  a  variable, 
as  in  a$,  it  means  this,  variable  will  refer  to  a  word,  or  what  we  call  in 
computer  terms  a  ’string’.  If  there  is  just  a  letter  or  a  combination  of 
letters  this  is  a  numeric  variable,  which  is  to  be  set  equal  to  a 
Ttumber.  When  the  computer  came  to  line  10,  It  waited  lor  a  ’string’ 
input  and  this  is  where  you  entered  your  name.  The  6  in  line  20 
meant  it  waited  for  a  number.  When  you  entered  a  number  the 
computer  assigned  It  to  the  variable  B. 

Line  30  did  some  assigning  of  its  own.  Using  the  LET  statement,  it 
made  a  equal  to  b  plus  b.  When  you  use  a  LET  command  it  makes 
what  is  on  thefeft  hand  side  of  the  equal  sign-in  this  case  the  c-to 
be  set  equal  to  what  is  on  the  right  hand  side,  in  this  case  b  plus  b. 
So  Nne  30  sets  c  to  b  plus  b.  When  the  computer  comes  to  line  40, 
instead  of  printing  out  (as  you  see  in  the  listing)  ’hello  it  prints  up 
what  a$  has  been  set  equal  to.  In  Nne  10,  you'd  recall,  you  assigned 
a$  to  your  name  and  so  line  40  prints  up  ’heNo'  your  name.  Similarly 
in  line  50.  Instead  of  printing  e  b,  it  prints  up  the  number  that  you 
gave  it  in  line  20.  And  line  60  prints  up  the  value  of  c  as  assigned  by 
the  LET  statement  in  line  30.  and  the  b  as  you  gave  it  in  line  20. 

If  this  is  aM  a  bit  confusing  I  suggest  you  rewind  the  tape  }ust  a  bit 
and  Natan  to  the  explanation  again.  When  you  run  the  program  you 
will  see  on  the  screen  the  words  heNo,  your  name  and  then  Your 
number  was’  are  printed  directly  underneath  each  other.  There  is  a 
way  of  getting  the  computer  to  space  out  lines.  If  you  look  on  the  7 
key,  you  wil  see  a  single  apostrophe  printed  in  red.  Using  the  EDIT 
key,  bring  line  50  down  to  the  bottom  of  the  screen  and  move 
across  the  word  PRINT  (using  CAPS  SHIFT  and  the  8  key)  and  put 
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the  apostrophe  before  the  open  quote  marks  in  that  PRINT  state¬ 
ment.  Use  SYMBOL  SHIFT  to  get  the  apostrophe  and  put  it  so  that 
line  50  now  looks  as  it  does  in  program  D,  Run  the  program  again 
and  you'll  notice  this  time  the  computer  puts  a  blank  line  between 
the  'hello',  your  name  and  the  “your  number  was1  lines. 


D 


10 

INPUT 

SI 

20 

INPUT 

b 

30 

LET  C 

■  b+b 

4.0 

PRINT 

"be  i  io 

",  3* 

50 

PRINT 

'•‘uoor 

nusber 

60 

PRINT 

C  y  is 

double 

hello  tie 

your  nun  her  was  34. 
68  is  double  34. 


was 


;  b 


M  - 


J 


b 


The  apostrophe  available  from  the  7  key  (using  the  red  SYMBOL 
SHIFT  key)  moves  the  PRINT  statement  down  one  line.  If  you  add 
three  apostrophes  before  the  words  'your  number  was',  you'll  find  it 
prints  three  blank  lines.  We  can  use  the  apostrophe  in  this  way  to 
move  PRINT  statements  down  tine  screen  but  they  are  a  little 
limited. 

In  a  moment  we'd  talk  about  a  more  convenient  way  of  moving 
PRINT  statements  about  on  the  screen  as  you  want  them.  But  first  I 
would  like  to  introduce  the  word  TAB  which  you'll  find  written  in 
green  above  the  P  key.  You  will  remember  from  the  introduction  of 
this  tape  that  you  get  the  words  in  green  above  a  key  by  pressing 
both  the  shift  keys  at  once  then  letting  them  go  and  then  touching 
the  relevant  key.  Try  it  now.  Press  both  the  CAPS  SHIFT  and  the 
SYMBOL  SHIFT  at  the  same  time,  let  them  go,  then  press  the  P  key 
and  if  all  is  well  you  will  get  the  word  TAB,  Now  use  the  7  key  and  the 
CAPS  SHIFT  to  move  the  greater  than'  sign  up  next  to  line  40. 
Using  the  EOIT  key  (the  1  and  the  CAPS  SHIFT)  bring  the  line  40 
down  to  the  bottom  of  the  screen.  Move  across  the  word  PRINT 
with  the  8  key  so  the  word  T AB  appears.  Next  press  the  8  and  then 
using  the  RED  SYMBOL  SHIFT  touch  the  O  key  to  get  the  semi¬ 
colon.  Line  40  should  now  look  like  the  line  40  in  the  program  E  in 
your  booklet 
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10 

INPUT 

d$ 

20 

INPUT 

b 

30 

LET  C 

=  b+b 

4.0 

PRINT 

TRB  s; 

"he  l  lo 

50 

PRINT 

'  **your 

c;  "  is 

nuabftr 

was 

60 

PRINT 

doubt  e 

Hello  Xim 

your  nuabtr  was  34-2 
634-  is  double  34-2 


Once  you  have  this,  press  the  ENTER  key  so  that  the  new  line  40 
moves  up  to  its  place  within  the  program.  Now  run  the  program 
again.  This  time  you  will  see  that  the  word  hello  starts  eight  spaces 
across  from  the  left  hand  side  of  the  screen.  The  TAB  command 
moves  a  PRINT  statement  across  the  number  of  spaces  specified 
by  the  number  which  follows  the  word  TAB. 

It's  time  now  for  a  completely  new  program.  This  will  be  the  most 
complicated  one  we've  put  in  the  compiler  so  far.  Use  the  NEW 
key  (the  A  key)  to  wipe  the  program  you  have  in  the  SPECTRUM 
and  then  enter  program  F. 


F 


10 

INPUT 

"ink*?  a 

20 

INPUT 

"paper?  ",  b  „ 

"position  across?  c 

30 

INPUT 

40 

fm 

IF  C  <0 

OR  031  THEN  GO  TO  3 

50 

INPUT 

"position  dovn?  ";d 

OP  d  > 19  THEN  GO  TO  5 

60 

ns 

IF  d<0 

70 

b;  "x" 

PRINT 

«T  d , c ;  INK  a ;  PRPER 

30  GO  TO  10 


Have  a  look  at  program  F  in  your  booklet.  There  are  a  number  of 
new  features  in  H  which  I  will  explain  before  we  actually  enter  the 
program.  First,  look  at  line  1 0.  It  has  the  word  INPUT  which  we  have 
seen  before,  then  the  word  'ink'  with  a  question  mart  within  the 
quote  marts  before  the  letter  a.  When  you  run  this  you’ll  see  that 
the  word  'ink?'  will  appear  at  the  bottom  of  the  screen  telling  you 
that  that's  the  INPUT  required.  When  words  are  included  within 


quote  marks  in  an  INPUT  statement,  those  words  appear  at  the 
bottom  of  the  screen.  The  same  goes  for  lines  20  and  30.  Note  that 
there  is  a  semi-colon  after  the  close  of  the  marks  in  those  three 
lines.  This  is  very  important. 

Line  40  is  also  a  very  important  line.  There  are  a  number  of  new 
things  we  can  learn  from  this  line.  'IF  THEN'  are  two  words  which 
are  often  seen  together  In  computer  programs.  When  the  computer 
finds  an  IF  statement  H  checks  to  see  whether  the  statement  is 
following  the  IF  is  true  and  if  it  is  then  it  carries  out  whatever 
command  foNows  the  THEN. 

The  c  in  line  40  refers  to  the  c  in  line  30  where  you've  been  asked  to 
input  a  position  across.  You  enter  a  number  which  becomes  set 
equal  to  the  variable  c  in  line  30.  Line  40  looks  at  the  value  of  this 
variable,  and  if  it  finds  that  it  is  less  than  zero,  or  greater  than  31 , 
then  it  sends  action  back  to  line  30,  The  end  of  line  40  is  GO  TO  30 
and  this  is  exactly  what  it  does  if  the  condition  after  IF  is  found  to  be 
true.  So,  line  40  checks  to  see  whether  c  is  less  than  zero  or  c  is 
greater  than  31 .  (You  will  find  the  OR  is  on  the  U  key:  you  get  it  by 
holding  down  the  RED  SHIFT  KEY  and  presing  down  (he  U.)  The 
less  than'  sign  you’ll  gat  from  the  R  key  and  the  'greater  than’  from 
the  T  key.  THEN  is  on  the  same  key  as  GO  TO.  Line  50  uses  the  by 
now  familiar  words  within  quote  marks  in  an  INPUT  statement.  Line 
60  follows  the  same  sort  of  routine  as  Hne  40  did  checking  the  value 
of  D.  This  time  it  checks  that  D  lies  between  zero  and  19.  This 
brings  us  lo  the  end  of  side  one  of  this  cassette.  We’H  continue  the 
explanation  of  program  F  on  side  2. 


21 


SIDE  2 

We  will  continue  now  the  explanation  of  program  F.  We  have  gone 
as  far  as  line  70.  Line  70  starts  off  PRINT  AT  d,  c.  You  will  find  the 
AT  on  the  I  key.  You  get  AT  by  holding  down  the  RED  SYMBOL 
SHIFT  and  pressing  the  I.  PRINT  AT  prints  whatever  follows  the 
PRINT  AT  at  the  location  specified  by  the  two  numbers  or,  as  In  this 
case,  variables  which  follow  the  word  AT.  The  first  number  or 
variable  is  the  distance  down  the  screen  in  Ikies  and  the  second  is 
the  distance  across  in  spaces.  So.  this  prints  whatever  follows  the 
words  PRINT  AT  down  d  and  across  c.  It  does  so  in  ink  colour  a.  If 
you  look  at  the  top  row  of  keys  you'll  see  the  numbers  one  to  seven, 
and  above  them  the  colours  blue,  red.  magenta,  green,  cyan, 
yellow  and  white. 

INK  5,  for  example.  wHI  print  in  cyan,  and  INK  2  will  print  in  red.  So 
INK  a  equals  the  number  between  one  and  seven  which  you  enter 
in  line  1 0.  PAPER  is  similarly  controlled.  PAPER  is  the  background 
you  print  on,  so  PAPER  b  which  you  entered  in  line  20  wll  print  it 
underneath  INK  a  in  printing  the  x  that  comes  at  the  end  of  the  tine 
70.  You  can  chain  together  many  control  statements  like  this  In  a 
PRINT  statement  by  using  semi-coions: 

Line  BO  uses  GO  TO  which,  as  you'll  remember,  you  get  from  the  G 
key.  This  sends  action  back  to  line  10  to  do  it  all  over  again. 
Described  in  a  vacuum  lire  this,  this  ‘exptyrettoP*  may  not  appear 
to  Nominate  the  program  very  much.  Howevtfr,  if  you  enter  it  and 
run  it  tor  a  while  -  seeing  fhe  result  of  various  inputs-and  then  play 
the  tape  again,  you'll Und  that  this  second  run  should  make  it  much 
clearer.  As  with  all  examples  on  this  tape,  if  you  don't  understand 
something  at  this  stage,  donl  go  on  but  run  the  tape  back  through 
and  tolow  through  it  again.  Once  you  have  done  this  sevral  times 
you  should  find  even  the  more  complex  things  become  quite  clear. 

Time  now  to  continue  on  with  program  G.  There  are  a  tow  new 
things  in  this  which  I’d  like  to  tell  you  about  before  you  enter  the 
program. 


G 


10  BORDER  0 
20  INK  2 
30  PAPER  6 
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40  CL S 

50  input  "give  me  a  number  “;a 
60  input  "and  another  " ;b 
70  IP  «>1  PND  b>l  THEN  PRINT  a 
“  and  *;  b;  '■  are  both  positive" 

30  PAUSE  200;  GO  TO  4.0 

Line  40  is  CLS  which  stands  for  CLEAR  SCREEN,  You’ll  find  this 
on  the  V  key.  Have  a  look  at  it  now.  A  few  keys  further  along  on  the 
bottom  row  is  the  M  key  and  on  this  you  wHI  find  PAUSE.  PAUSE 
appears  in  tine  80  of  our  program.  Notice  after  the  number  200  in 
line  80  there  is  a  colon.  You  will  get  this  from  the  Z  key  using  the 
SYMBOL  SHIFT  then  pressing  Z.  In  line  70  you  will  see  the  word 
AND.  TNs  comes  from  the  Y  key  and  you  get  it  by  holding  down  the 
RED  SYMBOL  SHIFT  and  pressing  the  key. 

Une  70  is  fairly  complicated,  so  make  sure  you  get  ai  the  semi¬ 
colons  and  spaces  correct,  or  it  may  not  be  accepted  by  the 
computer.  Once  you  have  entered  program  G  and  run  it  for  a  while, 
come  back  to  the  tape  and  well  go  through  it  line  by  line. 

Une  10,  BORDER  e.  turns  the  frame  or  horded  around  the  screen 
black  (the  colour  which  is  written  above  the  0  on  the  top  right  hand 
comer  of  the  keyboard).  Une  20  turns  the  INK,  or  the  colour  In 
which  the  computer  writes,  red,  the  colour  which  is  above  the  2  key. 
Une  30  turns  the  PAPER,  the  background  colour,  to  yellow.  This 
background  is  not  visible  until  the  computer  hits  line  40  (the  clear 
screen  command). 

Notice  the  AND  command  in  line  70.  This  ensures  that  only  if  a  and 
b  are  both  positive  wHI  that  sentence  be  printed.  Try  running  the 
program  again  this  time  giving  a  negative  number  and  a  positive 
number  and  you'll  find  that,  as  expected,  the  sentence  'a  and  b  are 
both  positive'  does  not  appear.  In  line  80,  PAUSE  200  holds  the 
screen  display  for  a  while  (in  this  case  for  about  four  seconds;  you 
divide  the  PAUSE  figure  by  SO  in  the  UK,  60  in  the  US.  to  get  the 
number  of  seconds  PAUSE  operates  for).  The  end  of  line  80  sends 
action  back  to  line  40  using  GO  TO. 

Une  60  is  unusual  In  one  respect  Up  to  now  we  have  had  ‘single 
statements  lines’  like  line  20.  In  line  80.  however,  there  are  two 
statements,  PAUSE  200  and  GO  TO  40.  You  can  have  more  than 
one  statement  on  a  tine  so  long  as  each  statement  is  separated  by  a 
colon  (which  you  get.  as  you  will  recall,  from  the  Z  key  using  the 
RED  SYMBOL  SHIFT). 

Now  using  CAPS  SHIFT  and  the  keys  6  and  7  get  the  little  'greater 
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than’  sign  next  to  line  30,  When  you've  done  this,  use  the  EDIT  key 
to  bring  line  30  down  to  the  bottom  of  the  screen.  Move  over 
PAPER  and  the  6.  using  the  6  key,  and  then  delete  the  6.  Now  i 
want  you  to  press  both  CAPS  SHIFT  and  SYMBOL  SHIFT  at  once. 
Then  take  your  fingers  off  those  keys  and  press  the  T  key.  The  word 
RND  should  appear.  Follow  this  with  the  multiplication  sign  (the 
asterisk  you’ll  find  on  the  B  key  which  you  get  by  holding  down  the 
RED  SYMBOL  SHIFT  and  pressing  the  B),  and  then  add  a  7.  Line 
30  should  read  now  as  it  does  in  program  H. 


10  BORDER  0 
20  INK  2 
30  PAPER  PND *7 
4.0  CLS 

4.5  PAUSE  25:  GO  TO  30 
50  input  “give  te  a  noiber  a 
6e  input  “and  another  b 

70  XF  3>1  RND  b  > 1  THEN  PRINT  3 
;“  and  b;  ”  are  both  positive" 
80  PRUSE  200:  GO  TO  4.0 


Stop  the  tape  until  you  have  done  this,  and  have  also  added  the 
new  line,  45.  Then  come  back  to  the  tape.  Now  that  you  have  line  45 
in  place  I'd  like  you  to  press  the  R  key  (RUN),  and  press  ENTER. 
This  rather  splendid  display  of  changing  colours  comes  from  line  30 
choosing  a  colour  at  random.  The  RND  in  line  30  stands  for 
random,  it  generates  a  random  number  between  zero  and  one.  Ill 
try  to  make  that  clear.  Stop  the  program  using  BREAK,  then  press 
NEW  and  clear  the  computer  completely.  Not  that  you’ve  done  that 
stop  the  tape  and  enter  program  I,  then  come  back  to  the  tape. 


X 


10  LET  a  bRND 
20  PRINT  a 
30  GO  TO  10 


When  you  run  program  I  you'll  see  a  series  of  random  numbers 
between  zero  and  one  generated  by  the  computer. 
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0 • 16903713 
0.7*623103 
0 . 96762086 
0.57159*2* 

0.67005615 
0 . 25*3*875 
. 07699585 
8.7757*158 
0 . 180862*3 
0.56561279 
0. *21**775 
0 . 60923767 
0 . 69326782 
0 . 998*3762 
0.65782166 
0 . 33700562 
0.27616862 
0.713*8572 
0.5117*927 
0.3817**38 
0.63153076 
0.38521912 

You'll  notice  that  when  the  screen  is  fuM,  the  question  'scroll?' 
appears.  Touching  any  key  (except  BREAK)  wll  start  the  program 
running  again,  to  print  up  some  new  random  numbers.  RND 
generates  numbers  between  zero  and  one  as  you  can  see.  but  in 
many  cases  it  is  more  useful  to  have  numbers  that  are  greater  than 
one.  This  can  be  achieved  very  easily  by  changing  line  1 0  to  what  it 
is  in  program  J. 


i j 


10  LET  a=INT  fP Niv*10.i  *1 
20  PRINT  a 
30  GO  TO  10 

Change  line  10  so  it  looks  like  the  line  1 0  from  program  J  using  INT 
(which  you'll  find  above  the  R  key).  Press  both  SHIFT  keys  at  once, 
then  press  the  R  key  and  the  word  INT  wilt  appear.  Next  hold  down 
the  RED  SYMBOL  SHIFT  and  touch  the  8  key  to  get  the  left  hand 
bracket.  You  get  the  RNO  as  you  recall  by  pressing  both  SHIFT 
keys,  letting  go  and  then  pressing  T.  The  asterisk  (multiplication 
sign  in  BASIC)  is  found  on  the  B  key.  You  get  it  by  holding  down  the 
RED  SYMBOL  SHIFT  and  then  touching  the  B  key.  The  right  hand 
bracket  you  get  from  the  9  key  using  the  REO  SYMBOL  SHIFT.  The 
plus  sign  comes  from  the  K  key. 

You  may  be  beginning  to  think  that  you'd  never  find  your  way 
around  the  keyboard  without  an  explanation  of  where  every  symbol 


25 


and  word  is  but  you'd  be  surprised  at  how  familiar  you  become  with 
it  after  you  have  run  through  the  tape  a  couple  of  times.  Run 
program  J  and  then  come  back  to  the  tape  for  an  explanation  of  it. 
Program  J  assigns,  in  line  I0r  the  variable  a  to  random  numbers 
between  one  and  ten.  Note  that  if  you  didnl  have  the  + 1  at  the  end 
of  that  line  the  random  numbers  generated  would  be  between  zero 
and  nine. 

Now  it  is  all  very  well  to  generate  a  great  stack  of  numbers  between 
one  and  ten  but  that  may  not  seem  at  this  moment  particularly 
useful.  However,  random  numbers  can  be  used  to  simulate  many 
things  that  happen  in  the  real  world  such  as  the  way  raindrops  fail 
on  a  particular  area  of  ground;  the  way  weeds  grow  in  the  garden  or 
even  the  way  dice  fall.  In  fact,  random  numbers  are  used  a  lot  in 
computing,  particularly  in  games  programs.  Program  K  shows  how 
the  computer  can  be  used  to  act  as  a  pair  of  dice. 

K 


la 

PRINT 

* "st and  by" 

20 

PAUSE 

50 

30 

PAINT 

'♦’die  one” 

4.0 

PAUSE 

50 

50 

GO  SUB 

130 

30 

PAUSE 

50 

70 

PRINT 

' “die  two " 

30 

PAUSE 

50 

20 

GO  SUB 

130 

100 

PAUSE 

100 

110 

CL5 

120 

GO  TO 

10 

130 

REM  subroutine 

14.0 

BEEP  . 

02 l,  AND  *50 

150 

PAINT 

I  NT  fRNf>*6)  *1 

100 

RETURN 

There  is  another  new  thing  that  is  being  taught  by  program  K,  the 
use  of  subroutines.  Look  at  the  listing  of  program  K  and  you'll  see 
that  line  50  and  line  90  both  say  GO  SUB  130.  Youll  find  the  word 
GO  SUB  on  the  H  key.  When  the  computer  comes  across  a  GO 
SUB  command.  It  goes  to  the  line  designated  (in  this  case  it  goes  to 
130)  then  continues  on  until  it  comes  to  the  word  RETURN.  In  this 
case,  it  comes  to  the  word  RETURN  in  line  160.  Then  the  computer 
returns  to  the  line  after  the  one  which  has  sent  ft  to  the  subroutine. 
When  the  computer  came  to  line  50,  it  read  GO  SUB  130.  Immedi¬ 
ately  it  went  to  130,  carried  out  what  it  has  to  blowing  the  line 
numbers  through  in  order  until  it  came  to  Noe  160  when  it  struck  the 
word  RETURN.  It  then  went  back  to  line  60,  the  first  line  after  the 
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one  which  sent  it  to  the  subroutine,  and  then  continued  on  through 
the  program  in  order. 

A  subroutine  is  used  if  the  same  series  of  steps  have  to  be  executed 
several  times  throughout  a  program.  It  is  a  much  more  economical 
way  of  programming  than  including  the  same  series  of  lines  a 
number  of  times  within  a  program.  The  only  other  things  to  notice  in 
this  particular  program  are  the  single  apostrophe  before  the  open 
quote  marks  in  lines  10,  30  and  70  which  space  out  the  PRINT 
statements,  and  the  BEEP  command  in  line  140.  We  have  used  the 
BEEP  once  before  in  a  rather  restricted  way  in  an  earlier  program. 
The  BEEP  command  has  two  parameters  (parameters  are  the 
numbers  that  follow  the  command).  The  first  number,  in  this  case 
02,  is  the  duration  of  the  note.  The  decimal  point  is  the  same  as  the 
full  stop  (found  on  the  M  key  using  the  RED  SYMBOL  SHIFT  KEY). 
After  the  .02  (the  duration),  there  is  a  comma  (from  the  N  key)  and 
then  another  number  for  the  pitch  of  the  note.  The  first  number  after 
the  word  BEEP  is  the  duration  and  the  second  number  is  the  pitch. 
TNs  can  be  from  around  -60  to  +69.  By  putting  in  RND*  50  we  get 
a  different  note  every  time  the  computer  executes  this  subroutine. 

Line  150  generates  a  number  between  1  and  6.  Now  when  you're 
entering  and  running  this  program  keep  in  mind  that  it  is  at  this 
section  of  the  course  to  illustrate  two  things.  First  of  all,  it’s  to  show 
the  production  of  random  pumbers  which  are  used  in  two  ways  in 
the  program,  one  to  determine  the  pitch  of  the  BEEP  and  the 
second  to  actually  the  number  that  the  computer  is  'rolling'  when 
it  throws  the  dice.  The  second  thing  the  program  seeks  to 
demonstrate  is  the  use  of  subroutines.  Run  the  program  for  a  while 
then  come  back  to  the  tape  to  continue  on  with  this  course. 

If  you  look  over  the  keys  on  your  SPECTRUM  at  this  point  you'll 
probably  be  pleasantly  surprised  at  how  many  of  them  you  now 
recognise.  You'll  see  that  to  program  the  SPECTRUM  is  perhaps 
somewhat  simpler  than  you  might  have  believed  when  you  first 
began.  Turn  now  to  program  L  in  your  booklet. 


L 


10  FOR  a Si  TO  15 
30  PR TNT  a 
30  BEEP  ,1,9 
40  PAUSE  30 
50  NEXT  d 
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We  are  now  going  to  took  at  FOR/NEXT  loops.  The  word  FOR  is  on 
the  F  key  which  makes  it  fairly  easy  to  find ,  and  the  word  NEXT  is  on 
the  N  key.  If  you  look  at  line  10  in  program  L  you  wMI  see  it  reads 
FOR  A=  1  to  1 5.  The  word  TO  is  written  in  red  on  the  F  key  (the 
same  key  as  the  word  FOR)  and  you  get  it  by  pressing  the  RED 
SYMBOL  SHIFT  at  the  same  time  as  you  press  the  F  key.  Enter 
program  L  now. 

A  FOR/NEXT  loop  counts  between  the  numbers  specified  in  the 
initial  FOR  statement.  In  this  case,  the  FOR/NEXT  loop  counts 
from  one  to  1 5  assigning  the  numbers  1  -1 5  in  turn  to  the  variable  a. 
This  is  shown  by  the  fact  that  it  prints  out  the  numbers  1  to  1 5  using 
line  20  and  in  line  30  produces  a  series  of  rising  tones.  We  can  alter 
the  FOR/NEXT  loop  as  in  program  M  to  get  tones  at  a  different 
pitch. 

M 


10 

30 

30 

4.0 

50 


FOR  «=-i5 
PRINT  a 
BEEP  . 1 , a 
PAUSE  30 
NEXT  a 


TO  0 


Using  edit,  bring  line  10  down  to  the  bottom  of  the  screen  and 
change  it  so  that  it  is  the  same  as  line  10  in  program  M.  Run  the 
program  then  come  back  to  the  tape  for  an  explanation  of  it. 

As  you  can  see  this  program  behaves  much  the  same  as  L  does 
except  that  the  notes  and  the  numbers  start  off  somewhat  lower  in 
pitch.  But  the  computer  stHI  counts  up  in  ones,  adding  one  each 
time  it  goes  through  the  loop.  The  first  time  it  goes  through  the  loop 
a  equals  _15,  the  second  time  a  equals  14  and  so  on  until  a  equals 
zero.  There  is  no  reason  why  the  computer  should  count  only  in 
ones  or  only  upwards.  Change  line  1 0  using  edit  so  that  it  reads  the 
same  as  line  10  in  program  N. 


10  FOR  a  TO  0  STEP  -4- 
30  PRINT  a 
30  BEEP  • I, a 
4-0  PAUSE  20 
S0  NEXT  a 
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Youll  need  the  word  STEP  for  this,  and  you'd  find  it  on  the  D  key 
{you  get  the  word  STEP  by  holding  down  the  REO  SYMBOL  SHIFT 
and  pressing  the  D  key).  When  you  run  program  N  you  will  see  that 
it  counts  downwards  in  jumps  of  four.  This  is  whal  STEP  does. 
STEP  can  be  positive  or  negative  and  it  determines  the  jump  in 
counting  in  a  FOR /NEXT  loop. 

Earlier  on  in  this  tape  we  discussed  some  of  the  ways  you  can  effect 
the  PRfNToutput  of  the  computer  by  changing  the  colour  of  the  INK, 
or  the  colour  of  the  PAPER.  There  are  other  commands  that  can  be 
brought  into  play  to  add  more  life  to  the  display  generated  by  your 
SPECTRUM.  On  the  bottom  row  of  keys  you  will  see  the  word 
FLASH  underneath  the  V  key  and  the  word  INVERSE  underneath 
the  N  key.  We  are  going  to  have  a  look  at  these  words  now. 

o 


10 

PRINT 

RT 

0,0;  Fi-RSH 

i;  “test 

20 

INPUT 

: 

ir 

THEN  ST 

30 

PRINT 

RT 

0,0;  FLASH 

©;  ‘test 

4.0 

> 

INPUT 

IF  a**a‘S" 

THEN  ST 

50 

RUN 

Enter  program  O.  Youll  see  the  word  FLASH  is  used  in  lines  1 0  and 
30.  When  you  run  It,  you'll  see  the  word  TEST  appear  in  the  top  left 
hand  comer  of  the  screen  flashing  off  and  on.  When  you  press  any 
key  it  will  change  to  just  sitting  there -not  flashing  off  and  on.  Press 
another  key  and  it  will  start  flashing  again.  Entering  'S'  will  stop  the 
program.  Run  H  for  a  white  and  then  come  back  to  the  tape  for  an 
explanation  of  how  it  works. 

Certain  words  such  as  FLASH  and  INVERSE  are  followed  by  a 
number  which  is  either  one  or  zero.  One  means  'on'  and  zero 
means  ’off.  In  line  1 0  of  program  O  FLASH,  1  turns  on  the  flashing 
which  you  can  see  quite  clearly  by  its  effect  on  the  word  TEST.  Line 
20  waits  until  you  press  the  ENTER  key  before  continuing.  Line  30 
prints  the  word  TEST  with  flash  turned  off,  that  is  FLASH  e,  in  the 
same  position  as  the  previous  word  lest'  was  printed.  So  we  see 
the  word  lest’  appear  in  a  non-flashing,  that  is  normal,  condition. 
Line  40  waits  for  you  to  press  ENTER  again  and  then  line  50  runs 
the  program  from  the  beginning.  From  this  short  program  we  can 
see  how  FLASH  works. 
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Let's  now  look  at  the  word  INVERSE.  Using  the  edit  facility,  change 
lines  10  and  30  to  read  as  lines  10  and  30  in  program  P. 


p 

10 

PRINT 

RT 

0s 0;  INVERSE  l; "tt 

St" 

20 

DP 

30 

INPUT 

a$: 

IF  d$»4,S"  THEN  ST 

PRINT 

RT 

0/0;  inverse  0; 

St" 

4-0 

INPUT 

a*: 

IF  THEN  ST 

OP 

50 

PUN 

Basically  the  changes  only  involve  changing  the  word  FLASH  into 
the  word  INVERSE  (which  you  wHI  find  underneath  the  M  key).  Run 
the  program.  This  time  you'll  see  that  at  first  the  word  test  printed 
back  to  front',  that  is  white  letters  on  a  black  background.  Press 
ENTER,  and  it  changes  to  normal  black  letters  on  a  white  back¬ 
ground  and  this  continues  as  long  as  you  leave  the  program  runn¬ 
ing.  Stop  it  by  entering  'S'  before  pressing  ENTER. 

By  the  way,  you  may  have  noticed  that  we've  been  using  lower 
case  (that  is.  small)  letters.  The  SPECTRUM,  unlike  many  other 
computers,  does  not  cfifterentia&e  between  small  and  capital  letters. 
If  you  lice  you  can  change  lower  case  letters  into  capital  ones  by 
holding  down  the  CAPS  SHIFT  KEY  before  you  press  the  relevant 
letter  key.  Alternatively,  if  you  want  aN  the  output  to  be  in  capitate 
you  hold  down  the  CAPS  SHIFT  and  than  press  the  2  key  (with  the 
word  CAPS  LOCK  above  it).  This  wiH  ensure  that  everything  from 
that  point  on  is  in  capitals.  We  wHI  be  using  capital  letters  from  now 
on  for  variable  names  but  there's  no  reason  why  you  can't  leave 
them  in  lower  case  if  you  like. 

I  would  like  to  introduce  now  the  word  OIM.  This  may  be  the  way 
you  feel  after  you  first  hear  the  explanation,  but  don't  worry-it  will 
soon  become  clear.  DIM  is  one  of  the  more  difficult  things  to  explain 
which  is  why  we  have  left  it  to  this  point  on  the  tape.  DIM  is  on  the  D 
key.  You  use  DIM  when  you  wish  to  set  up  an  array,  or  fist  of 
numbers  or  words.  Well  look  at  numbers  first.  Turn  to  program  O  in 
the  booklet. 

D 


10  DIM  a (5) 

20  FOR  6=1  TO  5 


30 


*•;  aibj 


30  INPUT  ACB> 

4-0  NEXT  B 
50  PAUSE  100 
60  FOP  Bsl  TO  5 
70  PRINT  "Af";B;**J  13 

30  NEXT  B 


The  first  line  is  the  important  one,  DIM  A<5).  This  tells  the  computer 
to  reserve  space  tor  five  numbers.  We  can  refer  to  thesehombers 
as  'Aff ),  A^2J7  mV A(4)  araTA(5).  They  are  all  sfements  in  the  A 
array,  when  you  run  the  program  you  will  see  that  line 1 Odimensbns 
the  array  to  make  space  for  these  five  elements,  and  then  lines  20, 
30  and  40  allow  you  to  enter  five  numbers,  one  after  another, 
pressing  ENTER  after  each  one.  These  are  then  stored  as 
foments  of  the  A  array.  Line  50  pauses  for  a  few  seconds  and  lines 
60,  70  and  80  print  out  the  elements  of  the  array  in  a  way  which 
should  help  to  make  it  dear  how  arrays  work. 

A Cl>  15  23 
A  (2)  IS  234.2 
A (3)  IS  -76S 
A  (4. J  IS  1 . 0006 
ACS)  IS  4-4. 

You  will  find  arrays  of  great  use  in  programs,  so  if  you  find  it  hard  to 
understand  what  they  are  from  this  quick  explanation,  I  suggest  you 
play  the  tape  several  times  untH  it  becomes  clearer.  You'll  see 
arrays  in  use  in  some  of  the  programs  given  at  the  end  of  the 
booklet.  Now  we’ve  seen  the  use  of  an  array  to  hold  numbers.  This 
is  called  ^numerical  array.  You  can  also  have  an  alphanumeric,  or 
string  array.  You  can  see  a  string  array  set  up"  In  program  R:- 


DIM  Rf (5.iai 
FOP  B=1  To  & 

INPUT  Af fBJ 

NEXT  B 

PAUSE  100 

FOP  B«1  TO  5 

PAINT  ")  13 

NEXT  B 


Notice  that  with  a  string  array,  not  only  do  you  have  to  have  a  dollar 
sign  after  the  variable  (so  the  dimension  line  reads  DIM  AS,  or 
whatever  letter  between  A  and  Z  you  decide  to  use),  but  also  that 
the  first  number  in  brackets  is  the  number  of  elements  you  are 
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going  to  have  in  the  array,  and  the  second  number  is  the  length  of 
the  longest  element  in  the  array,  that  is  the  length  of  the  longest 
word  you  wish  to  store  in  the  array.  Run  program  R  now,  entering 
five  words  in  turn  with  ENTER  after  each  one.  Each  word  must  be 
less  than  ten  letters  long.  Notice  that  although  you  have  to  have  a 
second  number  after  the  first  in  the  dimension  line  (number  1 0  in 
line  10).  when  you  specify  the  element  of  the  array  to  be  entered  as 
in  line  30,  or  to  be  printed  as  in  line  70,  you  only  need  to  specify  the 
first  number. 

Finally  on  this  tape  we'd  look  at  READ,  DATA  and  RESTORE. 
READ  and  DATA  are  very  useful  commands  for  accessing 
information  during  a  program.  They  are  often  used  for  loading  an 
array.  Enter  program  S  and  run  it  and  then  come  back  to  the  tape  for 
a  discussion  on  what  is  going  on. 

& 


10  DIM  A 13) 

20  DIM  PIO.S) 

30  FOR  6=1  TO  3 
40  READ  A (B) 

50  READ  A$CB> 

60  NEXT  B 
70  FOR  C si  TO  3 
©0  PRINT  A  CO 
90  PAUSE  30 
100  PRINT  A$fO 
110  PAUSE  30 
120  NEXT  C 

130  DATA  99,MHELLO,,y4294 

140  DATA  ■•HEART**, -32676,  ■•©ONES" 

Line  1 0  dimensions  a  numeric  array  to  hold  three  elements  and  line 
20  sets  up  a  string  array  to  hold  three  elements  up  to  five  letters 
long.  Lines  30  to  60  go  through  a  loop  reading  from  the  DATA 
statements,  lines  130  to  140. 

Every  time  the  computer  comes  across  the  word  READ  it  goes  to 
the  next  element  in  a  DATA  statement.  You  have  to  make  sure -as 
in  this  case-that  when  it  wants  a  number  (as  In  Nne  40)  it  comes  to 
a  number  in  the  DATA  statement,  and  when  it  wants  a  string  (as 
demanded  by  tine  $0)  there  is  a  string  there.  The  computer  will 
always  READ  the  information  from  the  DATA  statement  in  order, 
but  it  doesn't  matter  where  the  DAT A  statements  are  in  the  program. 
If  you  doubt  this,  change  line  130  to  say  line  17  and  line  140  to  Nne 
one  or  line  96.  Then  get  rid  then  of  lines  130  and  140  and  run  the 
program  again.  YouK  find  it  performs  in  exactly  the  same  way. 
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The  RESTORE  command  (which  you  will  find  above  the  S  key) 
sends  the  computer  back  to  the  very  start  of  the  OATA  data 
information.  If  you  add  a  line  such  as  55  IF  B=2  THEN  RESTORE 
and  then  run  the  program,  you’ll  see  what  happens  when  the  DATA 
pointer  is  put  back  to  the  beginning  of  the  first  DATA  statement. 

That  now  brings  us  to  the  end  of  this  tape.  If  there  am  some  things 
which  we've  discussed,  which  still  are  not  dear,  play  that  section  of 
the  tape  over  and  over  again,  until  you  understand  what  is  going  on . 

You'll  find  a  few  additional  commands  explained  at  the  end  of  the 
script  of  this  talk,  in  the  booklet.  This  is  followed  by  a  number  of 
ready-to-run  programs.  I  hope  you  enjoy  entenng  them,  and  runn¬ 
ing  them. 
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LEN 

The  function  LEN  determines  the  length  of  a  string,  as  you'll  see  by 
running  the  following  program: 


ie  Ren  len 

20  INPUT  "ENTER  R  UORD  ";A0 
3®  IP  THEN  STOP 

40  PRINT  A0;  "  IS  ,4jLEN  R$ "  LE 
TTERS  LONG** 

50  GO  TO  20 


VAL: 

VAL  returns  the  numeric  equivalent  of  a  string,  which  is  shown  by 
the  next  program: 


10  REH  URL 

20  INPUT  **  ENTER  R  SUM 
30  IF  RJs" 5**  THEN  STOP 
40  PRINT  A*J  **  EQUALS  " 
50  GO  TO  20 


A* 

;  URL  R$ 


22+4  EQUALS  26 
44/2-6  EQUALS  16 
1 • 33-5*6  EQUALS  -28.67 


IN  KEY$ 

INKEY$  reads  the  keyboard,  and  does  not  require  you  to  press 
ENTER  before  acting  on  the  keyboard  input.  This  next  short 
program  shows  iNKEYS  in  action.  Enter  ‘S'  to  stop  the  program. 
Engage  CAPS  LOCK  before  you  run  it. 


10  REH  INKEYS 

20  REM  ENGAGE  CAPS  LOCK 

30  PAUSE  20 

40  LET  A$*INKEYf 

50  IP  A$s*‘“  THEN  GO  TO  40 

60  PRINT  “YOU  PRESSED  " j AS 

70  IP  A*«"S"  THEN  STOP 

60  GO  TO  40 
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The  final  program  in  this  learning'  section  shows  the  use  of  CODE 
and  CHR$.  Each  character  (that  is,  each  keyword,  symbol,  letter  or 
number)  printed  by  the  computer  has  a  CODE  between  zero  and 
255.  The  CODE  of  A  is  65,  and  that  of  Z  is  90.  The  command  PRINT 
CODE  AS  will  produce  the  code  of  the  first  element  of  the  string,  A$, 
CHR$  works  in  the  opposite  way.  Enter  PRINT  CHR$  84  and  the 
computer  will  print  T,  and  so  on.  Run  this  program  to  see  CODE  and 
CHRS  in  action. 


10  REM  CHR$  and  CODE _ 

20  INPUT  "ENTER  ft  LETTER  *‘;ft* 

30  PRINT  . THE  CODE  OF  ft*, 

IS  *' ;  CODE  ft* 

4-0  IF  ft*  =  -S‘*  THEN  STOP 
SO  INPUT  "ENTER  ft  NUMBER  BETWE 
EN  65  RND  90  ft 

60  IF  ft <65  OR  ft >90  THEN  GO  TO 

50 

70  PRINT  . THE  CHR*  UITH  COD 

e  *;ft;4‘  is  ";chr|  r 

00  GO  TO  10 


PROGRAMS 


Games  programs: 

MAZE-MAN 

CHECKERS 

CAMEL 

THE  MUSIC  MASTER 
KNIGHTSBRIDGE 
CATERKILLER 
POLYMONY 

CONNECTEZ-VOUS  QUATRE 
MOGUL 

COURTBALL  DODGE 
HIGH  ROLLER 
ECONOMY 
REACTION  TEST 
DRAGONFIRE 
STOCK  MARKET 
ANAGRAMS 

NOUGHTS  AND  CROSSES 

BOMB  RUN 

DRIVER 

SPECTRAL  BOUNCER 
BOMBER 
MANTRAP 
Utility  programs: 

DECISION-MAKER 
BILLBOARD 
SUPER  SKETCH 
CALENDAR 

USER-DEFINED  CHARACTER  AID 
Graphics  demonstrations: 

DIAMOND  GLORY 
SPARTAN  SPANGLES 
SPIRALS 

INSTANT  BLOPPO 
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GAMES  PROGRAMS 
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MAZE-MAN 


MAZE-MAN  is  a  Spectrum  version  of  the  Arcade  favourite 
PAC-MAN,  and  despite  being  written  in  BASIC,  stiil 
provides  quite  a  challenge,  MAZE-MAN  was  written  by 
Tudor  Costigan, 


Program  Summary: 

Lines  0010-0070 : Ini tialisati on 
o/  variables/  etc*  'n'=Jijgh 
Score*  'b'=5core#  Poke  £3692* 
955  cures  the  computer  of 
incessantly  asking  Scroll?’ 
every  so  often*  The  subroutine 
at  line  4-30®  drams  the  des>i?n 
shown  at  the  beginning  of  the 
p  ro«r»» * 


Lines  ©090-0166; Pri nt  the  title 
and  ask  for  'Skill  Level'/ 
with  suitable  error  messages* 

‘ w w '  is  used  as  a  delay  in  a 
loop  later  in  the  program* 
Lines  De  f  ine  user- 

t>e  fined  graphics*  using  data 
statements  at  lines  37®® 
onvirds.  However*  in  the 
these  graphics  come  out  as  the 
capital  letter  of  the  graphic 
that  they  are  feg*  ft*B*etc*> 
Lines  0230-04-4.® :  Supp  ly  instruct¬ 
ions  if  required* 

Lines  0S10-1&30 : Se t up  position 
of  'Ghost'  in  *  l  '  and  '  k  **  as 
being  6*19,  and  then  print  out 
board*  Originally*  each 
"Character  position**  of  the 
board  had  a  different  data 
element,  but  this  was  too 
slow.  The  design  of  the  board 
has  already  been  tested  for 
about  a  year  at  my  school*  and 
so  far  no  complaints  have  been 
recieved*  5o  I  decided  to 
incoperate  the  design  into  my 
p  rogram . 

Even  in  the  listing  the 
individual  elements  of  the 
data  statements  are  of 
different  brightnesses <  This 
is  because  they  are*  in  actual 
fact*  different  colours*  and 
the  printer*  being  only  'blacX 
and  white*  has  to  show  these 
colour  changes  as  different 

*^fie€^CH6e9i$; iHRrn  6  in  line 
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1420  allows  the  old  attribute 
of  the  paper  to  show  throuohy 
as  described  on  pages  111  and 
114  of  the  Spectrum  manual, 
Linas  1550-ieie  print  the 
title  and  scores  in  varying 
degrees  of  no t i eta bi i i ty .  Line 
1620  prints  the  amount  of  aen 
vart  in  the  middle  of  the 
board.  Lina  1636  sets  the 
paper  colour  to  green,  the 
ba  c  to  round  colour  of  the 
insides  of  the  maze. 
i ne  1710; i ni t i a i i ses  your 
position  as  cis,20>  and  prints 
uou  at  that  position. 

.in*  i“50:Deiay  according  to 

su  u  level  selected  (see  line 
0090. 

.in*  i?55,provid*i  higher  note 
in  the  continual  sound 
effects,  it  has  to  be  this 
short,  because  the  spectrum 
cannot  -aerep'  and  do  something 
else  at  the  saae  tiae. 

^ines  1766-1730 : Obt a i n  input  i r 
a  Key  is  being  pressed  and 
process  it.  *d$'  and  'x$'  are 
used  in  conjunction  with  each 
other  in  order  to  provide 
continuous  aoveaent  without 
having  to  Keep  the  relevant 
Key  pressed  down.  Line  1771 
bianKs  out  the  space  where  the 
pACKin  wii  wi  th*  g^e-e-n*-  fsee^ 
line  1630 > .  if  an  unusable  Key 
was  being  pressed/  then  line 
1786  sends  the  Spectrum  to 
line  3160.  the  routine  for 
£S-VI‘RQ  t.\C-  1  l  i  Cfl  i  - 
Lines  1060-1375; These  test  the 
next  position  in  the 
appropriate  direction  as  to 
whether  i t  is  a  space  or  not. 
if  it  is,,  then  the  paeaan  is 
moved  to  that  position  and 
control  passes  to  line  2106/ 
which,,  as  explained  later. 
checKs  for  certain  special 
occaiiions  before  going  on  to 
line  2160.  to  wove  the  ghos t . 
if  it  is  hot.  control  is 
passed  to  another  routine  to 
find  out  what  it  iS.thiS 
routine  is  explained  below, 
wines  1900—2070 : These  routines 
checK  the  space  mentioned 
above  and  decide  whether  it  is 
a  star  (worth  10  points) .  a 
ha  if -bonus  (worth  100  points),. 
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a  bonus  (worth  200  points*,  or 
a  watt  (worth  nothing!) .  For 
tht  point -gaining  objects  the 
score  "b’  and  the  counter 
are  increased  (when  *i* 
reaches  ib»,.  ail  the  stars 
have  been  eaten  and  ail  the 
bonus's  have  appeared) *  if  a 
bonus  or  either  Kind  has  ween 
'eaten*,  then  appropriate 
sound  effects  are  produced,  xt 
the  object  is  a  watt/  the 
pacaan's  position  is  unaltered 
and  he  is  reprinted  on  the 

i.iSes®2iSS-2ioe:  A  chet*  to  see 
i r  the  pacaan  has  pone  down 
either  tunnel,  and  if  so  to 
brino  hi*  out  on  the  other 
iide'of  the  board. 

Lines  8110*8120 : Print  or  delete 
the  bonus  according  to  how 
aang  stars  are  eaten. 

Lines  8130*2135: print  the  score 
on  white  background^  and  alter 
the  high-score  if  the  score  is 
h i gher  . 

.ines  2l4.0*2l49:Tests  for  a 

complete  ty  eaten-up  board,  and 
if  positive  prints  a  congrat- 
utary  aessage  and  plays  a 
tune,  then  going  to  line  510. 
the  beginning  0/  the  aain 
prooraa . 

Line  2151: sounds  the  lower  note 
or  the  continuous  sound 
effects  (see  line  1755) . 

Lints  ai6fi*2i90:T«st  for  poss¬ 
ible  aoveaent  towards  the 
pacaan  .  and  accordingly  ooes 
to  a  subroutine,  if  no" 
aoveaent  in  the  necessary 
direction  is  possible,  then 
the  spectrua  goes  to  line 
26S0.  which  checks  to  see  if 
the  ghost  and  the  pacaan  are 
on  the  saae  spot. 

Lints  22 10  *2550  .‘Subroutines  to 
check  proposst}  position  for  a 
wail,  if  the  test  is  postive. 
then  that  option  is  turned 
down.,  and  the  spec  true  is  sent 
to  check  if  another  direction 
is  possible.  If  there  is  no 
wail.,  the  spectrua  goes  to 
line  2619.  explained  below. 

1.  ants  2616-&650:  check  position 
and  assign  value  to  *j‘.  This 
is  so  that  the  object  is 


40 


rensBbered  and  can  be  replaced 
when  the  ghost  has  passed  by. 
However,  the  bonus  will  not  be 
replaced.  The  subroutine  at 
line  2700  as  called  just 
the  value  of  - j *  is  reassigned 
to  replace  the  previous 
object,  and  to  print  the  ghost 
in  its  new  position,  control 
then  goes  to  line  1700,  which 
checiis  »or  another  input  fro* 
the  piauer.  1  r  the  paceanfcand_ 
ohost  are  on  the  »«n»«  *pui, 
tested  bu  line  26SS,  the 
spectrue'is  sent  to  line  2720. 

ines  2710-2770: d« crease  the  no. 
of  lives  left,  and  reset 
counter  (but  not  score*, 
colour  and  sound  effects  are 
combined,  and  if  the  piayer 
still  has  a  life  left  then 
the  spectrus  is  sent  to  line 

ines *2760-28*0: end  aa*e  logic, 
another  gase  can  be  had,  and 
your  score  is  printed,  and  uou 
are  told  if  uou  have  beaten 
the  high  score,  if  you  wish  to 
ibttortaiise  your  high  score, 
uou  should  replace  the  fioure 
In  line  10  to  your  own.  Then 
every  tiwe  the  gase  is  run 
froB  the  beginning,  your  high 
score  will  appear,  if  another 
oaae  is  wanted,  then  control 
ooes  to  line  20. 

ines  3700-3760: Data  statewents 
to  define  the  User-Defined 
graphics  used  (see  lines  190- 
210)  . 

anes  4300 -ii20 : P  r a  n  t  the  title 
design  (see  line  ©e* . 
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Variables  used; 


n 

J 


l 

i 


b 

J* 

j 

ci 

-3 

5* 

S 

i 

:*5  ,sd 


aa , bb.,  ccvdd 
^a,qb 


3 

3t 

'  y 


=Hi  gb  score 
High  score 
*  CODE ■  of  object 
^underneath ' 
ghos  t 

no . o  f  li ves  left 
counter  of 
objects  eaten 
this  '  f  rase  *'  » 
s  core 

stores  previous 
Keg  pressed 
loop  variable 
general  input 
variable 
loop  variables 
loop  variable 
stores  data  for 
board -pr i n  ti  ng 
loop  variable 
posi t i on  of 

pdcpan 
P os i t i on  of 
ghos  t 

contents  of 
p  ropos^ea 
posi t i on 
score+co lour 
c  o  n  t  r  o  l 

length  of  notes 
added  to  k , t 
produce  old 
posi t i on 
loop  variable 
input  variable 
to  op  variables 
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1  REM  MAZE  MRW 

2  REM  BY  T  .  M  *  COST  I(?RN 

10  LET  n  =4-7670.  LET  nfsSTR$  f>; 
POKE  23692,255.  LET  fCs0 
20  LET  J =32 ,  LET  KK=3:  LET  i  =0 
LET  b  =0 .  LET  d  >  =  "  " 

30  BORDER  6 .  PRPER  7 :  INK  £f :  C 

L_  5 

60  GO  SUB  4.300:  FOR  U  =0  TO  5: 
PRINT  NEXT  U 
70  INK  0 

90  PRINT  FLR5H  1:  INK  1; "  MR 
zt  MfiN  -  Em  T.M.Cost  i<jan 
100  PRINT  :  PRINT 
110  PRINT  ■■e.kill  Level'5” 

12©  print  **  Hard,Hediu«,easy  ' 
H.M,E)  " 

130  PfiUSE  0 

14.0  LET  C  $  =  INKEY  $ 

14.5  IF  INKEY  £  <  >  "  "  THEN  GO  TO  14. 

°  150  IF  c><>"h"  RND  t$<  RND 

c  ><>“»"  RND  RND 

RND  THEN  PRINT  RT  11,0,  ’ 

H  .  M  .  o  r  e  only  please!  ",  GO  to  1 
30 


160  IF 
T  ww  =0 

C  *  =  ”h  " 

OR 

c  $  =  "H" 

THEN 

LE 

170  IF 
T  WW =25 

OR 

THEN 

LE 

160  IF 
T  WW =50 

c  $  = "e  " 

OR 

THEN 

LE 

135  PR 

I  NT  HT 

#  ~yrt’ 

;  -r  2 

190  RESTORE  3700 

200  FOR  q=l  TO  6:  RERD  X$ 

205  FOR  2=0  TO  7:  RERD  X:  POKE 
USR  x$«,X;  NEXT  Z 
210  NEXT  q 

220  IF  rc<>0  THEN  GO  TO  4-50 
230  PRINT  ;  PRINT  "DO  yOU  Wish 
instructions  <Y/N*" 

24.0  ?F  INKFVIr "  ”  THr^i  •”>  TO  24.0 
250  LET  CS-INKEY$ 

260  IF  c  >  =  "n "  OR  c>  =  nN"  THEN  GC 
TO  *50 

270  IF  C$<>“y"  RND  C*-fi  "V"  THEN 
GO  t  n  24.0 
220  CL5 

300  PRINT  ;  PRINT  BRIGHT  1, " 
INSTRUCTIONS  “ 

310  PRINT  :  PRINT  “To  ROVS  UP", 
"press  '  a  '  " 

320  PRINT  "TO  move  down" , "press 

^  2  #  it 

330  PRINT  “TO  wove  r  i  gh  t  *’ ,  “p r  e s 

s  '  m  4  " 

34.0  PRINT  "TO  love  le  f  t  "press 

'  n  '  “ 

36.0  PRINT  -  rr  TNT  1  ;  =  10  yo  in 

r  s  " 
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370 

330 

4-30 

pcr^; 


510 

530 

n~ 

660 

tt" 

6  70 

W 

e~.  «  it; 


PRINT  "  O  =  100  points.” 
PRINT  **  !  =  2©0  points” 
PRINT  PRINT  FLftSH  Ij  “ 


r  f- 


■»  r  - 

JK  P  V 


r  :  -■ 

i  -  1  MM  I 


*  «-*  ■  i  ' 

;  r4-  w 


in;\L  V  $  ""  :  i  :L* :  drO  ill  4-40 

.  LET  1=6:  LET  K  =  19 
RESTORE 

rvp-TQ  •*t?ti?tn?r??Tr?r7?t ??»»»»»»»»»» 


CL  5 


a 


a  ■' 


700 

8" 

710 

8" 

720 

8" 

730 

■  r 

74-0 

8” 
750 
8” 
760 
8" 
770 
tt  •’ 
760 
tt" 

“ •  i  « 

0  «  M  * 

S  "  ~ 
S00 

tt" 

ei0 

8” 

620 

tt" 

830 

tt” 

2390 

1 

1100 

14-10 

1112 

1 

14.15 
^  4.  - 
14.20 


DfiTfl 

DRTfi 

DRTfl 


DRTR  "8*5*  ***************** 
--r  --nr  i-tttt-  r r  ^r88* 

1:  7.~Pi  +  +  +  -  8880 

-  ...  . 

L'Rf  H  ii— £i*l8*#T*****“*=8*tt88?: 
DRTfi  " 8  *****  *  *88888  8  *  ****** 
888*8*8*8  tt  *8*8  *88 

*8**“tt  8***8* 

888*8*8*8  8*8*8*88 
DfiTfi  "8*****8*888888*8**** * 
DRTfi  "8*8*8*****  ******8*8* 

DfiTfi  “8Ctt  *8  *88  *8888*88*8  *813 
DfiTfi  "tt*tt*8************8*tt* 
i-*fi ih  ”8******r!rjntt8n7Tn****  ** 
DRTfl  "8*8888*88888888*8888* 
DfiTfi  "8*8888*88888888*8888* 
DRTfl  ”8**********  ***  ******* 
DfiTfi  "888888888888888888888 
FRFER  7.  CL  3  PAPER  4  INK 
FOR  d^l  TO  19 

BPRD  -09  •=  -  1  TO  £2  IF 

=  "8"  r.R  "  then  prpe 

INK  4- 

TriE  j’4  PAPER 


jr  ”  =  J. ;  :  ri  i_/ 


PR  1NT  fiT  d  ,.  S  fj  .  i-  $  (  j  »  .  •  PRPE 
INK  1 

h e >:t  -o  •  p r*  i nt  r. nr^  17  chp  * 


14.00  NEXT  ri 
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14-90  PfiPcR  7:  INK  2 

1550  PRINT  HT  1.0,:  FLB3H  1; 

Man-:  inuerse  l ;  rt  a. 3; "By 
VERSE  0;RT  3^1;  ‘*T  .H.C.  “ 

1600  PRINT  RT  S,0;  INVERSE 
SCORE ” ; RT  6,1;  INVERSE  0, 


?;  n  * 


INVERSE 


1610  PRINT  RT  8,1; 

DRE" ; RT  9,1; 5TR$  b 

1620  PRINT  RT  9,19;STR*  KK; 

1630  PRPER  4- 

1660  FOR  £=0  TO  200:  NEXT  S 


“Naze 

IN 

l;  "MI 
PRPER 

1;  “SC 


1710  LET  y=lB:  LET  .<=2©  PRINT  R 
T  y  .  x ;  •  #“ 

1750  FOR  u — 0_TO  uu  NEXT  u 
1755  5ccP  .  tf  ^  4 
1760  LET  Xf=lNKEV$ 

1765  IF  X*  =  "“  THEN  LET  X$=INKEY* 

1770  IF  X*<>  “  THEN  LET  d*=““ 

1771  PRINT  RT  y,x;“  “ 

1780  IF  X*-"***  OR  X*=“M“  OR  d*=  * 

a>-  OR  d*=”M“  THEN  GO  TO  1S00 
1732  IF  X  *  =  *'  H  "  OR  X  *  =  “N“  OR  d*s  - 

n-  OR  d*="N"  THEN  GO  TO  1620 
1 784-  IF  x*  =  “a’*  OR  =  OR  d>=" 

S”  OR  d$-"R”  THEN  GO  TO  184  0 
1735  IF  X*=“Z“  OR  :-;*  =  “Z“  OR  d  S  —  ” 

Z  “  OR  d$  =  M2“  THEN  GO  TO  1660 
1788  GO  TO  2160 
1300  LET  X=X+1 

1310  LET  £-S=CODE  (SCREEN*  iy,X)} 
IF  Si  o32  THEN  GO  TO  1900 
1312  PRINT  RT 
1815  GO  TO  2100 
1820  LET  X  ~ x  — 1 

1330  LET  SS=CODE  (SCREEN*  (y,X); 

IF  S £r  <  >32  THEN  GO  TO  1950 
1332  PRINT  RT  y,x:-3" 

1335  GO  TO  2100 
134-0  LET  •  J  -  y  - 1 

1350  LET  SS^COOE  l SLRttN *  iy,X)J 
IF  ss<>32  THEN  GO  TO  2000 
1352  PRINT  RT  y,x  ;“***' 

1355  GO  TO  2100 
1360  LET  y  =y  + 1 

1870  LET  S-S  =CODE  l SCREEN*  (  y  ,  X  >  < 
IF  sso3S  THEN  GO  TO  2050 
1372  PRINT  RT 
1875  GO  TO  2100 

1900  IF  s £  =42  THEN  LET  i-i+1:  LE 
T  b=b+10.  GO  TO  1812 
1905  IF  SS=  79  THEN  LET  b=b+100. 
BEEP  .5,5:  BEEP  .5,7:  GO  TO  1812 
1910  IF  ss =33  THEN  LET  b*b+200: 
BEEP  1.5  BEEP  1.7;  GO  TO  1812 
1915  IF  S  S  =35  THEN  LET  *=--1:  GO 


TO  1512 

1920  GO  TO  1812 

1950  IF  £S=42  THEN  LET  iai tl:  LE 
T  b  =  b  +  ltj  GO  TO  1632 
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1955 

IF  SS 

=79  THEN 

LET 

b=b+100 : 

BEEP 

.5,5: 

BEEP  .5, 

7  : 

GO  TO  1832 

1960 

IF  SS 

=33  THEN 

LET 

b=b+200; 

BEEP 

BEEP  1..7: 

GO 

TO  1832 

1965 

IF  SS 

=35  THEN 

LET 

X=X+1:  GO 

TO 

IS  32 

1979 

•  ~m  \  i  i  f~t 

163  2 

2000 

IF  SS 

=42  THEN 

LET 

i=i+l:  LE 

T  b  = 

b  +  10: 

GO  TO  185 

,2 

2005 

IF  SS 

=79  THEN 

LET 

b=b+100: 

BEEP 

.5,5: 

BEEP  . 5 , 

”7  -  i 

* 

GO  TO  1852 

2010 

IF  SS 

=33  THEN 

LET 

b  =b +200 : 

BEEP 

1,5: 

BEEP  1,7: 

GO 

TO  1852 

2015 

IF  SS 

=  35-  THEN 

LET 

y =y +1 .  GO 

TO 

1352 

2020 

GO  TO 

1852 

2050 

IF  ss 

=  4-2  THEN 

LET 

i=i+I:  LE 

T  b  = 

b  +  10. 

GO  TO  137 

1  -  i 

2055 

IF  SS 

=79  THEM 

L  ET 

b=fc  +100. 

BEEP 

.5,5; 

BEEP  .5, 

-»  . 

/  . 

GO  TO  1872 

2060 

IF  SS 

=33  THEN 

LET 

b  =b+200 : 

BEEP 

1,5: 

BEEP  1,7 

GO 

TO  1872 

2065 

IF  SS 

=35  THEN 

LET 

y  =y  -  1  ■  GO 

TO 

1S72 

2070  GU  I O  1672 

2100  IF  *$<>”'’  THHN  LET  d  $  =  X  * 
2103  IF  u  =9  RHC>  X  =  51  THEM  PRINT 

PT  N  .  v  ,  "  "  :  LET  rF  I  NT  mT  9  , 

9  :  *'C  “ 

2106  IF  y =  9  RND  X =S  THEN  PRINT  ft 
T  M.X:*  ”  LET  X  .-30  PRINT  PT  9  . 

30;  ”®‘‘ 

2110  IF  i -50  OR  i =100  OR  i =150  T 
HEN  PRINT  RT  12,19;  FLASH  1,  PAP¬ 
ER  7  ;  ”  !  ”  :  LET  i  =  i  +1 

2120  IF  (i=60  OP  i =110  OR  i =160; 

PND  (y  <  >  12  RND  XOl9)  AND  U<>1 
2  PND  (>19)  THEN  PRINT  RT  12,19 

-  ■  ■  »i 

2130  LET  Q*=CHPS  17+LHRl  7+5TR* 
b+CHRf  17*CH«f  1:  PRINT  RT  3,1, 

INK  0 ;  q  $ 

2135  IF  b  >n  THEN  PRINT  AT  £  .  1 ;  I 
NK  0 ; q  $ 

214.0  IF  i  =18*  THEN  PRINT  PT  S  ,  15 
:  BRIGHT  l:  FLP5H  1,  PRPER  7;”UE 
LL  DONE”.  LET  1=0.  GO  TO  214*2 

214-1  GO  TO  2150 

214-2  LET  aa=.125.  LET  bt>  =  .25,  LE 
T  CC=.375;  LET  dd - . 5 
214.3  FOR  2=1  TO  2 

214-5  BEEP  CC.,0:  BEEP  *3,-4-:  BEEP 
dd,-4:  BEEP  dd,0:  BEEP  CC.-4:  6 

EEP  aa,-4  .*  BEEP  dd,  -4:  BEEP  CC,0 
BEEP  3d  .0:  BEEP  dd.,2:  BEEP  dd  . 
— 1 -  BEEP  bb.0:  BEEP  bb.4-:  BEEP  1 
.  0 

£146  NEXT  2 

214-6  BEEP  cc.-l:  BEEP  aa.0.  BEEP 
d  d  »  2  :  BEEP  dd  ,2:  BEEP  bb,4.  BEE 


46 


P  bb.0  BEEP  dd ,2:  BEEP  dd,2:  BE 
EP  CC>-1.  BEEP  33,0:  BEEP  dd>2: 
BEEP  dd..  2  BEEP  bb>  4:  BEEP  bb,0 
BEEP  dd  ,S  ;  BEEP  dd  ,2:  BEEP  CC  .G> 

:  BEEP  aa,-l:  BEEP  dd,*4;  BEEP  d 
d . 2 :  BEEP  dd,0.  BEEP  dd,2:  BEEP 
d  d  ,,  4-  :  BEEP  C  C  .i  O  r  BEEP  aa,-l;  BEE 
P  dd,-4:  BEEP  bb , 5:  BEEP  bb.2:  E 
EEP  dd.0;  BEEP  id  .  -0.:  BEEP  dd,0 

*  Q  !  1. 1— L  ~~T~  -*■ 

2150  REM  MOOING  RL  IEN 

2150  PRINT  RT  y,x;M#" 

5162  BEEP  .02,0 

2165  IF  l-y>0  THEN  GO  TO  2410 

2170  IF  l  -y  <0  THEN  GO  TO  2510 

2 180  IF  K  -X  >  0  THEN  GO  TO  2210 

2190  IF  K < 0  THEN  GO  TO  2010 

2200  GO  TO  2503 
2213  LET  K-X-l 

2220  LET  qa=l.  LET  qb-0 

2240  LET  Sd=CODE  (SCREENS  (  t  ,  JO  .< 
2250  IF  id-35  THEN  LET  k-K-rl.  GO 

TO  2190 

2250  TO  £610 

2310  LET  k  =  X  +  1 

2320  LET  qa=-l:  LET  qb=0 

2340  LET  S  d  =CODE  (SCREENS  t  L  , k j  i 
2350  IF  5  d  =35  THEN  l  ET  K=X-l':  GC 

TO  1750 

2360  GO  TO  2610 
2410  LET  1=1-1 

2420  LET  qa=0.  LET  qb=l 

2440  LET  SdaCOPE  (SCREENS 
2450  IF  sd=35  THEN  LET  l=Lfl:  GO 

TO  2170 

2460  GO  TU  2610 
2510  LET  1  =  14-1 
2520  LET  qas0:  LET  qb--l 

2540  LET  S-d=CODE  (SCREENS  (  l  .  X  «  j 
2550  IF  Sd=3E  THEN  ^ET  1=1-1:  GO 

TO  2180 

2610  IF  Sd=32  THEN  GO  BUB  2700. 

LET  vi  =32  :  GO  TO  1750 

2620  IF  £  xi  - 42  THEN  L--«  SUB  2700; 

LET  .  -4.^  r-C<  1  O 

2630  IF  S  d  =79  THEN  GO  SUB  2700: 

_£T  j  =79  :  GO  TO  1750 

2640  IF  S  d  =33  THEN  GO  SUB  2700. 

LET  J  =32 :  GO  TO  1750 

2650  IF  l  =y  RND  X  =  *  THEN  GO  SUB 

2700.  GO  TO  £710 

2660  GO  TO  1750 

2700  PRINT  RT  l  +q  b  ,  X  4q  a  ;  CHR S  J 
PRINT  RT  l  ,L  •‘IS’'  :  RETURN 
2710  LET  XX=XX-i 
272©  LET  i i0 
2  /  CUM  a  -fc?  I  U 

2740  BEEP  .02.0  FORCER  3:  BEEP 
.02.1  PRPER  7 -a.  BEEF  .32.4:  CL 


4? 


2754)  b 

27&0  BORDER  6:  BEEP  .05,0:  PfiPEft 
7:  BEEP  .05.1;  INK  2:  BEEP  2,0 
CLS 

2770  IF  K  K  >  0  THEN  GO  TO  SIO 
37§0  PRINT  "Yvy  Sfldad  y:  th  "  ;  L- :  ‘ ' 


2/=*©  xi-  n<b  I  MfcN  Lt  I  n=fc-  HHiNT 
"This  is  the  new  high  score" 

2800  PRINT  '  FLRSH  1.  BRIGHT  1. 
ANOTHER  GRME? 

ft  ft 

2310  LET  e$=INKEY$ 

2820  IF  RND  e$<>"Y‘  RND 

e$<  >  *’n  **  RND  THEN  GO  TO  2 

310 

2830  LET  rc=l:  IF  e$  =  *’y  OR  e$=l* 
Y "  THEN  GO  TO  20 
234-0  STOP 

3700  DRTR  "a"  .  0  .  &0 . 4.26 .14.14.  126 
.60,0 

3  710  £>HTR  ■' *  .  0  r  BO  .  226  -  126 . 126 , 1 

26  ■  60 . 0 

3  720  C‘HT fi  "  i  "  .  0  ,  GO  ,  120  ,.  126  •  6 

4.84.0 

3730  DRTR  "  b  ”  ^  0 ..  60  ,  126 1 12  >  112 . 1 
26  .60,0 

3740  DRTR  "  c  “  .  0 . 36 102 , 1 02 . 126 , 1 
26,60,0 

3750  DRTR  "d  "  ,0,  60,  128 . 126 . 102,,  1 
02.36,0 

4300  FOR  x-0  TO  255  STEP  5 
4310  PLOT  127.37;  DRfHJ  X- 127. 88 
4320  NEXT  x 

4330  FOR  y  =175  TO  ©  STEP  -5 
4340  PLOT  127.37.  DRfi!,1  123  .  'J  -07 
4350  NEXT  4 

4360  FOR  X  =255  TO  0  STEP  -5 
4370  PLOT  127,87;  DRRU  x-127, -87 
4380  NEXT  X 

4390  FOR  y  =0  TO  175  STEP  6 
4400  PLOT  127.,  87:  DRRU  -127.,y-67 

4410  NEXT  U 
4420  RETURN 
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CHECKERS 

In  this  version  ol  the  welj -known  board  game,  the  Spectrum  is 
playing  down  the  screen  from  the  top  of  the  board,  and  you  are 
playing  from  the  bottom.  The  computer  makes  its  multiple  jumps 
automatically,  and  you  are  asked  (see  line  2125)  if  you  can  make 
another  capture  after  you've  taken  one  of  the  computer's  pieces. 
The  display  is  particularly  effective  on  a  colour  television,  and  you'll 
see  that  the  computer  plays  reasonably  well,  if  a  little  slowly .  Its  end 
game  is  not  strong,  and  you  may  wish  to  add  a  routine  to  give  it  a 
little  more  'intelligence'  in  this  area.  This  program  is  based  on  a 
Checkers  game  written  by  Graham  Chariton,  and  subsequently 
modified  by  Tim  Hartnell  and  Tim  Rogers.  You  move  by  entering 
the  number  down  the  side  then  the  number  across  of  the  piece  you 
wish  to  move,  then  the  number  down  and  number  across  of  the 
square  you  want  to  move  into. 


4.0 

4.5 

50 

50 

65 

70 

00 

90 

100 

200 

210 

215 

220 

200 

24.0 


250 

260 

300 

310 


REH  CHECKER* 

INK  6 
BORDER  0 

POK  §^23656  .  C:  REM  CAPS  LOCK 
CL  5 

GO  SUB  7 000 
GO  SUB  500® 

GO  SUB  4.000 
GO  TO  200  ^ 

LET  r=CODE  b*(bJ  ^ 

LET  £■  =CGDE  b$  f  b+d  f  X  J 
LET  t  -CODE  b$  < b*2*d  f*  1  1 
RETURN 
LET  2  — 0 

PRINT  01; AT  1,9;  FLASH  1; 
•THINKING" 

FOR  b-23  TO  SB 
FOR  x«l  TO  4- 

GO  SUB  70  _ _  „ . 

IF  i  (x  <3  AND  r»ss,i  DR  r  =36) 
AND  (s-79  OR  S*96>  PND  t *32 
THEN  GO  TO  3000 
NEXT  X 
NEXT  b 

FOR  a*l  TO  4.00 

LET  b  =  INT  (RND»S0.t  *23 


320  FOR  X*1  TO  4. 

330  GO  SUB  70 

34.0  IF  ffxr3  AND  r  =88,'  OR  r  *3^ 
AND  £*32  THEN  GO  TO  4.000 
350  NEXT  x 
360  NEXT  a 

370  PRINT  PT  IS, 0; "You  *in" 

360  GO  TO  370 
2000  print  01; "Fro*? 
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2005  LET  9 =0 
2010  GO  SUE  6000 
2020  LET  9 si 

2030  PRINT  01; RT  1,16; "To? 

2040  GO  SUB  6000 
2050  LET  h«i 

2060  LET  b»  H2+h>  =bjt(J2  +  SO 
2070  IF  h<20  THEN  LET 
b* (h  +12)  »"£" 

2080  LET  b* (9+12) *“ 

2090  LET  V«ABS  fh-9> 

2095  IP  v  =10  OR  V^22  THEN  LET  b* 
( 12+  ih  +9>  >*2i  s"  "  ; 

GO  TO  2110 
2100  GO  SUB  4300 
2105  GO  TO  210 
2110  INPUT  "" 

2120  GO  SUB  4300 
2122  BEEP  .1,10 
2125  PRINT  *1;PTT  1,0; 

"Can  you  take  again  fY.'N)  7" 
2130  IP  INKEYjK  J  "N”  AND  INKEY$C> 
"Y"  THEN  GO  TO  2130 
2135  INPUT  "" 

2140  IP  INKEY.4“"Y"  THEN 
GO  TO  2000 
2150  GO  TO  210 

3000  LET  b$(bf2*d  fx))  -Chfl«  f 
3010  LET  bs C  b)  ="  “ 

3020  LET  fb+d <x ) i s"  " 

3030  LET  b=b+2*d  fx* 

3040  IP  b > 93  THEN  LET  b$fb:>="4"; 

GO  SUB  4300;  GO  TO  2000 
3500  POP  x  = 1  TO  4 
3510  GO  SUB  70 

3520  IP  i  fx  *3  AND  r  *68>  OR  r  sSS* 
AND  (Sa79  OR  ^  «9fO  AND  t  =32 
THEN  GO  TO  3880 
3530  NEXT  X 
3540  GO  SUB  4300 
3550  GO  TO  2000 
4000  LET  b$ ( b+d (X) ) =CHR4  f 
4010  LET  b|(b)sM  " 

4020  IP  b+d  fx >93  THEN 
LET  bS (b+d txJ i »"*" 

4030  GO  SUB  4300 
4040  GO  TO  2000 
4300  INPUT  "" 

4305  PRINT  AT  6,8; 

4310  FOR  a  =13  TO  1 IS 
4315  IP  b*<a> o'X"  AND 

"O"  AND  b*Ca)<>"£"  AND 
b$ ( a)  <>"$"  THEN  PRINT 
b* Cei ; :  GO  TO  4330 
4320  PRINT  INK  (2 * f t b* ( a ) *"0"  OR 
b$  (a)  >  +5#  i  ik>*  tm*  ='\X" 

OR  b4  Ca>  ■  "*".%  J  >  ;  Plash  fb$ 
<a>«"£"  OR  b$ (a)  ="*">; "O"; 
4330  IP  (a -12) /10*INT  fra-12i 
✓  I0J  THEN  PRINT  TAB  8; 
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4-340  NEXT  a 
4.350  PRINT  ' 

4360  RETURN 
5000  DIN  d 14) 

5010  LET  d il)  =11 
5000  LET  d  < 2)  *0 
5030  LET  J  f 3> 

504.0  LET  ii  C4>)  --11 
5050  READ  b* 

5060  LET  Z  =1 
5070  RRNDOHIZE 
5080  RETURN 
5000  LET  n**M" 

5010  LET  i$*INKEY$ 

6020  IF  CODE  i$<49  OR  CODE  i 8 >57 
THEN  CO  TO  5010 
5030  BEEP  *  1 , 20 
6040  LET  n|*n$fi« 

8050  PRINT  »1;RT  1  >10  +  16  *sg»n  9/ 

n* 

6060  IF  INKEY#o“M  THEN 
GO  TO  6060 

6070  IF  LEN  r»*f2  THEN  CO  TO  6010 
6080  LET  i=UPL  n$ 

6050  RETURN 

7000  FOR  a=0  TO  7 

7010  RERD  b 

7020  POKE  U5R  "a" *a  ,  b 

7030  NEXT  a 


704-0  RETURN 

7050  DATA  0 ^ 60, 126 , 102 ,102, 126 , 
60  >0 

9000  DATA  ”R 


CAMEL 


In  CAMEL,  written  by  Chris  Callender  and  modified  by 
Peter  Shaw,  you  have  to  try  and  cross  a  desert.  If  you're 
afraid  of  snakes  and  other  things  that  creep  and  crawl, 
this  game  is  not  for  you.  If  Lady  Luck  rides  with  you,  you'll 
accumulate  treasure  and  other  goodies.  Here's  a  key  to 
the  graphics  characters  used: 

r  -  c  a 

•7  -graphi  C  b 

-sr*phi  c  c 
■*  graphic  d 

)  -graphi c  e 

—  -graphi c  f 

>  -graphic  h 
graph*  c  g 


10  REM  CRMEL 

20  REM  CHPIS  CR1_I-EW£>ER 

PETER  3-HRU 
25  LET  t$s"" 

30  GO  SUB  9000 

4.0  PRINT  TRB  10;  "  j  —  —7  "  TRB 

10;  ”  ICRMELf  "  'TAB  1C;  **l— i- 
50  INPUT  "He  l  ID/  Uhat  is  yPL»r 


t  y  LINE  n$ 

60  PRINT  '''"Hello  ”.*n$ 

70  LET  tfslCC:  DIM  HSf4.0^15.'-  D 
IM  p*tl0,15>  DIM  p  (40,23.  DIM  S 
$  \22,  32) 

80  FOR  a  si  TO  4-0:  LET  p  0,13-1 
NT  (RND*3BJ  +2:  LET  p  fa,2)  sINT  CR 
NO *22 3  +2:  NEXT  a 

90  FOR  3*1  TO  10:  REBD  P$ (5) : 
NEXT  3:  LET  x *INT  C  RND  *28}  +2 :  LE 
T  u«INT  (RND»18) *2 

100  FOR  a=l  TO  4.0:  LET  h$03=p$ 
(XNT  C RND  aid)  -hi)  :  NEXT  3 
110  LET  S»(l) 8”|  ■ —  — 


. H 

120  LET  S  % C 22)  * 

- — — - * - «  “ 

130  FOR  a  eS  TO  21 
14.0  LET  dgla)  -  “  | 

1  ”  NEXT  a 
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150  LET  b£*")'4:  FOR  a  =2  TO  X -1 : 
LET  b*=fc>f  +  ‘  44  .  NEXT  S:  LET  b$sb 

*+"$":  FOR  a=X+l  TO  31:  LET  b$sb 
$ ♦  "*  **  :  NEXT  a 
160  LET  b$=b$+")" 

170  LET  s$(y)  Bb$ 

160  CLS  :  FOR  a  =1  TO  22:  PRINT 
INK  6;s$(a):  NEXT  a 
3  90  INPUT  ’'Direction  ";d$ 

200  LET  C*=d*(2  TO  >.  LET  C  =  URL 

c* 

20S  IF  C>10  THEN  GO  TO  120 
210  LET  d$=dS(i:> 

220  IF  d**"n"  THEN  LET  y=vi~c 
230  IF  d|a”£  *'  THEN  LET  y  =y  +C 
24-0  IF  df="e  *’  THEN  LET  Xs.\tC 
250  IF  dS="U>"  THEN  LET  x  =x  -  l 
lb0  LET  dal 

270  IF  RBS  (x-p  (S  RNI>  R©S 

(y-p  0,2)  )  <2  THEN  GO  TO  300 
2fc0  LET  a=a+l:  IF  a  <4.1  THEN  GO 
TO  270 

290  IF  x  =29  RND  y  =22  THEN  GO  TO 
7000 

292  IF  hMl0  THEN  PRINT  "Get  Id  at 
zr  fast".  FOR  a=l  TO  1000:  NEXT 

294  LET  W  =  U  - 1  .  IF  w =0  THEN  GO  T 

7.  6000 

295  GO  TO  1 10 
500  LET  **-*>«  (a.' 

510  LET  a  =1 

320  IF  K*=p$faJ  THEN  GO  TO  34.0 
330  LET  a  =a  +  1  :  GO  TO  320 
34.0  GO  TO  f  (  (a*5J  *200J  /2.1  fSde 
999  STOP 

1000  PRINT  "You  end  up  i n  a  sand 
3  tore ■  You  cannot  see  and  wande 

*  to" 

1020  LET  x  =INT  fRNDJ30)  +2;  LET  y 
=  INT  (2ND  *20.1  +2 

1030  print  "  r;xj  ";  y;  “ 

1940  GO  TO  110 

1500  PRINT  "Oh  dear  there  is  a  s 
naJie  here.  I  hate  snaKes.1  " 

1510  PRINT  "Hit  it  P tease  LET 

h  t  (  d  »"  " 

1520  LET  a=IWT  lRNO*5i -  *F  a =1  T 
■+EN  GO  TO  1S6D 

1530  PRINT  "Oh  no.'  it  hit  you" 

1540  input  "Hnother  9d»e  ';9$:  I 

-  9$(l3="y"  THEN  RUN 

1550  STOP 

1560  print  "You  mere  very  lurJty 
there*  Be  careful*" 

1570  FOR  a  =1  TO  1000;  NEXT  a.  GO 
TO  110 

200e  print  "Great -He  re  is  so»e  * 
^ ter  I  thin*” 

2010  IF  RND >.5  THEN  GO  TO  2060 
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2030  PRINT  '"Yes,  it  ii!  /  rake  10 
□  pints** 

2030  LET  W5W+100 

304.0  GO  TO  £070 

3050  GO  TO  9990  _  5 

3060  PRINT  "No  ,  it  WAS  A  »i  rage, 

2070r^OR  asl  TO  1000:  NEXT  a:  GO 
TO  H0 

2500  PRINT  "Here  are  the  long  10 

2510  LET  t$st|  +  "The  tOf>9  tOSt  jfi 
u<e  U  “fCHR$  13 

2520  LET  h$  (dJ  =  "  "  FOR  a  =1  TO  10 
30 :  NEXT  a 
2530  GO  TO  110 

3000  PRINT  "Good  ",n$; "  Here  is 
a  case t " 

3010  PRINT  "Where  do  you  want  i t 
to  take  youto" 

3020  INPUl"  x  .  y 

3030  LET  h$(a) GO  TO  110 
3500  FOP  a=l  TO  61:  PRINT  INK  fR 
^D»7)  +1:  "TIME  UflftP  :  NEXT  a 
3510  GO  TO  154-0 

4-000  PRINT  "GueSS  What  he 

re  is  a  computer!  it  wilt  he 

ip  you  find  any  of  these" 

4.020  FOR  3=1  TO  10:  PRINT  FLASH 

i;a;  flash  o,p$(a>:  next  a 

4-030  INPUT  "Uhi  ch  one  do  you  wan 

*  z 

4-04.0  LET  a  =1 

4050  IF  hj  (a.l  =pf  (2.1  THEN  GO  TO  4 

j)70 

4055  LET  aiafl:  IF  a  <41  THEN  GO 
TO  4-070 

4050  PRINT  "There  is  no  ";p$tzy: 
GO  TO  4020 

4070  PRINT  "Try  .  - f  ";  p  fa  ,  1J  ;  p 

f  a  -  2 1  •  "  )  *■ 

4080  FOR  3=1  TO  750-  NEXT  3:  GO 
TO  110 

4500  print  "Here  is  a  box  of  90 L 
d  "  :  nm 

4510  PRINT  "good.**’:  LET  t$  =  t$  +  "a 
box  of  gold” fCHR$  13 


4520  FOR  d 
TO  110 

=1  TO  750: 

NEXT 

a : 

GO 

5000  PRINT 

"Oh  dear, 

here 

i  S 

a  . 

corp  i  on  *‘;n$ 

5010  LET  h$fa)  IF  RND  >  . 5  THE 

T  GO  TO  1530 

5020  PRINT  "Good  it  didn't  b* te 
you".  FOR  a  si  TO  750:  NEXT  a.  GO 
TO  110 

5500  PRINT  "I  see  a  water  thief" 
5510  LET  h  %  fa J  a" " 

5520  LET  asJNT  IRNP*3.1  ,  IF  a  si  T 
HEN  PRINT  "You  overpowered  hije"; 

FOR  a=l  TO  750.  NEXT  a.  GO  TO  1 
10 
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5530  LET  bsINT  rPND**J  ;  PRINT  ”H 
2  stole  b;  ••  pints”  let  w=*-b 
554.0  FOR  aal  TO  750,  NEXT  a.  GO 
TO  X10 

5000  PRINT  ”You  died  Of  thirst  ** 

;  n 
5-0 

5030  GO  TO  154.0  " 

7000  PRINT  "YOU  Jtade  at  out  Of  X 
ne  desert  alive” 

7010  IF  t$  =  ””  THEN  GO  TO  7040 
7020  PRINT  "find  a an aged  to  late: 

i  * 


t 


0  PRINT  "did  you  fcnou  that'Ji 


7030  PRINT  t* 

7040  PRINT  "Prepare  to  tale  off1. 
GO  TO  1540 


3000  .>  BORDER  0;  PAPER  O,  IN*  7.  C 
_S  .  FOR  UaUSR  ”3”  TO  U5R  ” i ” ^1 
3010  RERD  Ul:  POKE  U,U1 
3030  NEXT  U 

3O40  DRTR  B,0,0, 31,31,24,24,24 
3050  DRTR  0,0, 0,245, 24©, 24,24,24 
3050  DRTR  24  ,  24  ,  24 , 31 z 31 ^ 0  ,  0,0 
3070  DRTR  24, 24,  24.,  248 , 245,-0 , 0,0 
3030  DRTR  24,24,24,24,^4,24,^4,2 


% 

9t?90  DRTR  0,0,0, 255 , 255 ,0,0,0 
3100  DRTR  5,25, 8,62, 5, 0.20, 34 
3110  DRTR  24, 24, fc-0, 125,255,24, 24 

,  50 

3120  RETURN 

3130  DRTR  ”a  sandstor®", "a  snaxe 
-  “water’/'the  lost  jewf  ls,’,”a  t 
aael"," a  t i »e  warp” 

3140  DRTR  *‘a  conputer’  ,  "a  bOA  of 
gold", "a  scorpi on”,  "water  thiev 
es-- 

33^3  STOP 
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THE  MUSIC  MASTER 


This  music  program  provides  you  with  a  kind  of  two  octave  organ. 
Written  by  Gwyn  Dewey,  the  program  allows  you  to  compose  a 
lune  (giving  you  a  visual  printout  as  you  do  so),  then  play  it  back. . . 
or  you  can  select  one  of  two  preprogrammed  melodies  (the 
National  Anthem  or  a  light  classical  piece  called  ‘Carnival'  which 
you'll  probably  recognise  when  you  hear  it).  Full  instructions  are 
Included  with  the  program. 


1  PAPER  7/  XNK  1.  CLS 
3  GO  SUB  20fi»?  „  „  ^  ,  _ 

5  DPTP  12,20,36,5,11 
t  j.2,  20 , 36,  O  ,  2?  ,  4.7 , 14  ,  IS  ,  4  ,  4k,  4.,  6  . 
11  , 

0  /  0  /  0  /  0  >  3  /  a  3  /  10  ^  12 

6  FOP  i  =U5R  "a"  TO  USP  "a"*3S 

7  PE PD  d ;  POKE  i  ,  * 

S  NEXT  i 

3  LET  b*  =  "" 

10  let  a0*M2SJedfv9W>njes3e4/ib 
y7u8i  " 

13  CLS 

15  FOP  g  =0  TO  31 

IMKEYSk"  '*  THEN  GO  TO  20 
i  *1  TO 


20  XF 
30  FOP 


LEN  a. 


00 
0 


31  XF  INKEy$  =  M  l  "  ThIn  GO  TO  30 

32  IF  INKEY$  =  "  1  **  THEN  GO  TO  10 


33  XF  XNK EY$=”0"  THEN  LET  ±^*=b 
$f  TO  (LEN  bf)  -2)  *  BEEP  .5,-20; 
PRINT  NT  22-i,g;"," 

4-0  IF  INKEY$>Sf  (1J  THEN  GO  TO 

30  NEXT  i 

52  GO  TO  20 

53  XNK  f  PND  *6.1 

54.  IF  i  =24.  OP  i  =23  THEN  GO  TO 


55  PRINT  PT  22 -i  ,9;  CHP$  (144-l-H 

ND44LJ 

60  BEEP  0  •  5  ,  i — 1 

64  XF  i-1 <10  THEN  LET  b£=b*+"0 

4  ■ 

65  LET  b$*b*+STP$  (i-1) 

70  NEXT  g 

S0  GO  TO  13 
100  CLS 

105  XNK  0 

106  print  "press  key  for  each  n 
ote  playback" 

107  print  '"and  release  finger 
at  end  of  note" 

111  FOP  a*l  TO  50 

112  NEXT  J 
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ase  FOR  i  «I  TO  LEN  t>s  STEP  2 
129  IF  INKEY$s" "  THEN  SO  TO  »« 
230  BEEP  0. 03,  UAL  t>9lj  TO  j  *-X3 
13S  IF  INKEY* THEN  GO  TO  13 


End  of  tune” 
ink  4;  "Pres* 
FJ -&£*H  0;  1 


f . . 


THEN  GO  TO  170 


U0 

1519  PRINT"  INK  3; 

160  PRINT  RT  SI 
*•;  FLR5H  l; 
o  continue*1 
175  IF  INKEYfi 
ITS  CLS 
188  GO  TO  8000 
2000  CL 5 
200S  BORDER  4- 
2018  PRINT  "Music” 

2020  REM  £>  19B2 

2030  PRINT  '"This  eusic  program 
has  two  ocx aves.First  you  p 

ut  in  your  tune  using  the  foil 
owing  Keys" 

28*8  PRINT  INK  2;  '  "BB** ;  Fl-RSH  l; 

FLASH  i;  - 

FLNSH  1"-  — 
B";  FLRS, 
FLASH  1; 

M  #  "A..  -  FLR3 


INK 

___  ;  PLflSHB; 

FLRSH  0;  'W 
FLRSH^ G 


*  W  M 


press 


plays  notes  back. 
Key  to  control  teap 


;  FLRSH 
/LASH  0 

2056 
YOU 

O  " 

2080  PRINT  '"0  deletes  lest  no  it 
entered  and  produces  warning  bu 

2Z" 

2085  print  '”i  selection  of  tune 

s" 

2070  print  rt  21,0;  INK  8; "Press 
to  co»poseM 
2075  COPY 

2BBB  IF  INKEYS  =  " ”  THEN  GO  TO  20B 
0 

2090  RETURN 

3880 >CLS  .  . 

3802  PRINT  "1«UK  National  an the* 


300*  PRINT  11 2  =Ca  rn  i  v  a  l  " 

3100  INPUT  “Uhi  Ch  tl»ne7**;dd.  _ 

4dsa»(ddal)  U«(rids2)  :  IF  dd  <2  O 
R  dd  >4  THEN  GO  TO  3180 
3110  GO  SUB  699B*tdd*2/ 

3120  GO  TO  100 

7001  RETURN 

7002  LET  bf *"1212141112141616171 
614121*1211121214.1617121819191  71 
6171717171614.1617161412161  719211 
716141212" 

7*®  3  RETURN 

7006  LET  b*=" 1211121520192022201 
f20l215191312131S191819201918191 
3191212111215201 92022281 928121 71 
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7009  RETURN 
6000  CLS 

D010  INPUT  "Dp  you  w ant  to  rp»po 
s«  again(y/n)?h;  LINE  a* 

0020  IF  a*»"y"  THEN  RUN 


Hus  i  c 

This  ausic  r-rograa  has-  two 
octaves .First  you  put  in  your 
tune  using  the  following  keys 


l  Plays  notes  back .You  press  a 
Uy  to  control  teapo 

0  Deletes  last  note  entered  and 
produces  warning  buzz 

l  selection  of  tunes 


Press  to  coapose 


58 


KNIGHTS  BRIDGE 

Knightsbridge  is  a  game  played  on  a  seven  by  seven  checkers 
board,  with  each  player  having  seven  chess  knights  as  pieces 
(which  explains  the  name).  The  computer  throws  a  die  which 
determines  which  piece  the  human  player  must  move,  then  it 
throws  a  die  for  itself  to  determine  which  piece  it  must  move.  All 
pieces  move  like  knights  in  chess  (and  you  are  not  allowed  to 
cheat)  and  a  piece  is  captured  by  the  opponent's  piece  landing  on 
top  of  it  The  first  player  to  capture  live  of  the  opponent’s  pieces 
wins. 


You  move  the  indicated  piece  by  telling  the  computer  which  square 
you  wish  to  end  up  in.  The  board  is  labelled  one  to  seven  along  the 
top  and  bottom,  and  from  seven  to  one  down  the  sides.  You  enter 
the  number  along  the  side  (e.g.  6)  then  the  number  along  the  top 
(e.g.  4)  as  a  single  number  (i.e.  64)  to  move  your  piece  onto  square 
number  64.  You  will  be  swiftly  chastised  if  you  try  to  cheat.  You  can 
concede  at  any  time  by  entering  99.  Knightsbridge  was  written  by 
Tim  Hartnell  and  modified  by  Peter  Shaw. 


10  REh  KNIGHTSBRIDGE 
20  REM  TIM  HARTNELL 
PETER  5HRU 

30  GO  5UB  5000:  GO  SUB  9000 

4.0  GO  BUB  0000 

50  GO  SUB  7000 

&0  GO  SUB  6000 

70  GO  SUB  6000 

00  GO  TO  40 

90  STOP 

5O00  POKE  23609 >50;  LET  x-0:  LET 
y=0:  LET  *>U=0;  LET  C  D  =0  ;  LET  ql 
=  3  LET  q  «0 

5010  BORDER  5.  PAPER  6.  BRIGHT  1 
CLS 

5020  FOR  a-U5R  'a**  TO  USR  "d  *-l 
5030  READ  b .  POKE  a,b 
504.0  NEXT  a 

5050  LET  a**"KNIGHTSBRIDGE  KNIGH 
TSBRIDGE  KNIGHTSBRIDGE  " 

5060  PRINT  AT  20,3,  INK  1;  'PRESS 
ANY  KEY  TO  CONTINUE” 

7070  FOR  a=l  TO  7 

5060  PRINT  AT  5,0,  INK  a,a*t  TO 

|»90  IF  INKEYIO’"’  THEN  RETURN 
5100  LET  a$  =  si(2  TO  ir+aStl) 

=>110  PAUSE  2 
5115  BEEP  *01,3 
;120  NEXT  a 
5130  GO  TO  5070 
7020  LET  q=0 


£030  LET  B=INT  tRND»66) +12 
504-0  LET  q-4+1 

£050  IF  4 -500  THEN  GO  TO  5000 
5060  IP  hl»M>U6  THEN  GO  TO  603 
0 

6070  PRINT  "You  Bust  iovc  tht  pi 
see  on  ";b 

6080  print  '’Where  Bill  you  »ove 
to?" 

6085  PRINT  ,"(99  to  concede) " 
6090  INPUT  n:  LET  p  =0 :  IF  n =99  T 
HEN  GO  TO  6130 

£995  FOR  B=1  TO  8.  IF  »+Zt«>=n  T 
HEN  LET  psl 

6996  NEXT  B :  IF  p -0  THEN  PRINT  I 
NK  2; ”88  ILLEGAL  HOVE  ##" :  GO  TO 
6080 

6100  IF  h  (n  ?  =145  THEN  LET  hu=hu  + 
1 

6110  LET  h  (•:«  slii:  LET  h  (n)  -14-6 
6120  RETURN 
6130  LET  Q  =500 
£14-0  GO  TO  8000 
7910  LET  ql-0 

?020  LET  ql-ql+1 

7930  LET  R=INT  (RNP*66)+12 

704.0  IF  41=500  THEN  GO  TO  6000 

7050  IF  h(K)  <>14-5  THEN  GO  TO  702 
0 

7069  PRINT  "I  BUSt  love  the  piec 
e  on  ";K:  PAUSE  58 

7070  FOR  B=1  TO  6 

7075  IF  X+Z(B><11  OR  Jt+ZfBJ>77  T 
mEN  GO  TO  7090 

7080  IF  h(JltZfV))-n&  THEN  GO  TO 
74.00 

7090  NEXT  B 

7100  FOR  B  —  1  TO  © 

7105  IF  K  +Z  ( W )  <11  OR  X  +z  ( B >  >77  T 
HEN  NEXT  W 

7110  IF  h*X+z(W>>  (  >  14-4  THEN  NEXT 

w 

7115  IF  B  -B  AND  h  ( X  +Z  (B>  )  <  >  144-  T 
HEN  LET  41=50 

7116  IF  ql=§08  THEN  GO  TO  8000 
7120  LET  X-X:  LET  y  =X  +Z  CB> 

7130  LET  h  (X)  =14-4.;  LET  h  fyj  =14*5 
714.0  RETURN 

74.00  REM  Capture 
74-10  LET  CO-CO+1 
74-20  DO  TO  7120 
8000  REM  Print  board 
8010  CL 6 

6018  IF  x>0  THEN  PRINT  "I  eoved 
froi  " ;  xj  “  to  y 

6920  print  . My  score  is  co; 

"  and  yours  is  ",hu.  PRINT 
8030  PRINT  ,  "  1234-567 " 

604-0  PRINT  ,  " - *■ 

8050  FOR  J  =70  TO  10  STEP  -10;  6E 
EP  . Ijjslb 


60 


S060  LET  a=hlj+l);  LET  b-h  ( J+3)  : 
LET  C=h(J+8);  LET  d=h(J+4>;  LET 
e=b(J+5);  LET  f=h*,>+6).  LET  9  »H 
f  J+7J 

3070  PRINT  ,  J/10;  ,l  ",  CHR*  a 

;  CHR$  b;  CHR*  c,  CHR*  d;CHR$  e  ;  CHR 
*  f;CHR*  9J  "  M;  j/10j  "  *r" 

3075  NEXT  J 

3060  PRINT  ,  " - " 

3090  PRINT  ,  "  1234567" 

3095  PRINT 

3100  IE  hU^5  OR  CO “5  OR  q 1=500  O 
ft  q=500  THEN  GO  TO  84*0© 

3300  RETURN 
34.00  REM  End 

34-10  IE  hu=5  THEN  PRINT  "HUMAN  D 
EFEATS  MACHINE.'  !  " 

34.20  IF  CO  -5  THEN  PRINT  '‘MACHINE 
PROVES  VICTORIOUS.*  !!  " 

34-00  IF  q=500  THEN  PRINT  “I  ACCE 
PT  YOUR  WISH  TO  CONCEDE" 

34-4.0  IF  q  1=500  THEN  PRINT  "I  CON 
CEDE,  HUMAN" 

BS00  STOP 

9900  REM  initialise 

9010  CLS  ;  LET  hU=0;  LET  CO =0 

9020  DIH  h (09) :  DIM  Z  (3> 

9030  FOR  a -1  TO  99 
904-0  LET  h  «a)  =0 

9050  IF  a >77  OR  a =70  OR  3=50  OR 

a =68  OR  a =69  OR  a =50  OR  a =59  OR 

a  =58  OR  a  =4-0  OR  a  =4.9  OR  a  =4-8  THE 

N  GO  TO  9090 

9055  IF  a =30  OR  a =38  OR  a =39  OR 

a  =20  OR  a =29  OR  a =28  OR  a <12  THE 

M  GO  TO  9090 
9860  LET  h  la)  =144 

9070  IF  a >70  AND  a <78  THEN  LET  h 
fa) =145 

9080  IF  a >10  AND  a <18  THEN  LET  h 

(a) =148 

9090  NEXT  a 

=*1®0  FOR  a  =1  TO  8 

ni0  READ  b 

9120  LET  *<aJ=b 

9130  NEXT  a 

9140  FOR  JN  =1  TO  INT  (RND*33) 

^250  LET  p  =RND#tt 
9160  NEXT  a 
9500  RETUAN 

3600  DATA  129,86,  36, 24 ,24 .,  36, 66.* 

^610  DATA  4,28, 118,254,254,28,28 
.  126 

9620  DATA  32,55,110,127,127,56 ,5 
--  126 

9990  DATA  -8 , -21, -12 , -19, 19, 12 , 2 
1 , 8 
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r-fy  score  is  &  end  yours  is  3 


1234567 


» 

n 

U 

n 

» 

u 

u 


SHKSrrs 


S8& 


7  n 
s  n 
5  n 
4.  n 
3  ts 
a  s« 
1  a 


1234.567 

n)U  KUSt  tove  the  piece,  on  3S 
Jhere  Mi U  you  move  to^ 

t©©  to  concede) 
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CATERKILLER 

In  this  program,  which  will  not  take  you  long  to  enter,  you  control  the 
'caterkil1er\  a  squirming  string  of  little  copyright  signs.  You  have  to 
stay  alive  as  long  as  you  can.  The  blue  hash  symbols  are  worth  ten 
points  each  if  you  run  over  them,  but  the  white  asterisks  are  fatal. 
Run  into  one  and  the  game  is  over.  You  control  the  caterkiNer's 
movement  with  the  V  and  ’m‘  keys  (and  note  this  program  is  written 
to  by  played  with  CAPS  LOCK  off).  However,  an  added  complica¬ 
tion  m  the  game  Is  that  you  continue  moving  in  one  direction  until 
you  either  hit  the  key  to  change  the  direction,  or  you  come  to  the 
edge  of  the  screen. 

There  is  a  high  score  feature  (see  about  half  way  along  the  very 
long  line  100:  so  you  can  try  and  better  previous  scores. 


3  REM  Caterkitter 

4.  REH  Grabs*  Charlton  and 

Ti*  Hartnett 
5  LET  highs  COfS»0 
10  BORDER  2:  PPPER  2:  CLS 
15  LET 

20  LET  3=10;  LET  b=15  LET  C *2 
X  :  LET  t  =0 

50  POKE  23692^0 

50  INK  1 7 ^ PRINT  PT  C,RNP?3l;  "  H 


70  INK  7:  PRINT  PT  C  ,  RND  *31,;  "  * 


PRINT 


r  narv  * 

55  LET  a  $  =  INKEY  $ 

66  IF  THEN  LET  a*=b* 

37  IF  .  THEN  LET  b*=a* 

90  LET  b=b+ PND  b<30J - 
AND  t 


i|=“z"  AND  b>l)  _ _  _ 

100  IF  SCREENS  ta,b.*»’**"  THEN  5 
EEP  .002,3:  FOR  X =1  TO  50:  PRINT 
RT  6,11;  INK  RND#7;  "You  scored 
”;t:  BEEP  .005,*:  NEXT  .X ,  LET  hi 
ghscore>(t  PND  hi  ghscore  <  t)  >  fhi  9 
hscore  PND  highscpre>t.»  :  FOR  x  =1 
TO  50;  PRINT  INK  RND*6;TPB  RND* 
16; "Highscorfi  is  "jhighscore;  BE 
EP  .005,X^2;  NEXT  X:  SO  TO  10 
105  IF  SCREEN*  THEN  L 

£T  t=t+lB 


110  PRINT  PT  a  /  b;  INK  6;  "©,- 
120  QO  TO  30 
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POLOMONY 

POLOMONY.  written  by  Chris  Callender  and  Peter  Shaw,  Is  a 
Spectrum  version  qf  the  well-known  board  gams  which  has  a  name 
using  the  same  letters,  but  in  a  slightly  different  order.  Need  we  say 
more?  If  you  have  the  board  game,  you  may  wish  to  move  real 
pieces  around  the  board,  foBowing  the  computer's  instructions. 


10  REM  POLOMONY 
S0  PEN  CHRIS  CRLLEHOER 
PETER  3HAU 

30  GO  SUE  E000:  REM  TITLE  RRGE 
4.0  PRINT  :  PRINT  :  PRINT 
SO  PRINT  "HELLO  THERE) J " 

00  DIM  be  <4.0, 32) 

70  FOR  a*l  TO  4.0.  RE  BO 
"1EXT  a 

80  DIH  p$  140,  32)  :  DIH  C|  140,32 
i  :  DIM  V  ( 40)  :  DIM  P  C4*0>  ;  DIM  C  (4 

•3 'i 

00  FOR  a*l  TO  4-0:  RERD  V  fa)  :  N 
EXT  a 

100  LET  a  s9000 :  LET  ca«0000:  LE 
T  p«l:  LET  cp =1 

130  INPUT  "Press  enter  to  roil 
dice  o  .  K  .  ”j  LINE  a£ 

14.0  LET  p-PflNT  (RNDt6)  fl:  IF  p 
>40  THEN  LET  p«l:  LET  a -a +200:  G 
O  TO  500 

150  LET  f*0;  IF  bf<P>  (  TO  2)  *“G 
D“  THEN  LET  a  *a  4-200:  GO  TO  500 
160  IF  bptp) 3"coi»uni ty  Chest 

"  THEN  GO  TO  1000 
170  IF  bftp) ="lncoBe  tax 

"  THEN  GO  TO  1500 
180  IF  be  Cp) -"Chance 

"  THEN  GO  TO  2000 


190  IF  betp>  <  TO  4) ="jai i "  THEN 
GO  TO  2500 

200  IF  be«P>  ="Parfcing 

*•  THEN  GO  TO  3000 


210  IF  beCP)“"00  TO  UR  XL  1 

"  THEN  GO  TO  3500 


220  IF 


be  ip)  »’*5UjP 


e  r  tax 

HEN  GO  TO  4000 


230  PRINT  "You  land  on  ";be<P># 


'vo  r  th  e*%;vtp) 

240  IF  cetp)-be<p> 
00 

250  PRINT  “Ui l l  you 


THEN  GO  TO  4. 
buy  "; be  4P> 


INPUT  x  e 

295  IF  xe(l)»**n"  THEN  GO  TO  500 
300  INPUT  "Hou  aany  houses  ";n; 
INPUT  "a  bote  17  »$:  IF 

"y"  THEN  LET  n  «5 
310  LET  p  ip)  tp*  +  tv  ip)  *n) 

320  LET  a  =a  -  (200 an) 


as 


330  PRINT  "Good";  PRU5E  50 
34-0  GO  TO  500 

4.00  PRINT  "You  are  trespassing 
on  ay  property-  Pay  *'*;  c  (p 

t  _ 

410  LET  a >•  -c  Cp>  LET  ca*ca  +  c(p 


) 


%% 


420  PRINT 
500  PRINT 
X  have  0"; cm 
505  PRINT  " 


Ta  '  very  Much) H 
You  now  have  a 


»»  i 

J 


1  ^ 


IT 


Sid  IF  a  <ft  THEN  GO  TO  5000 
515  IF  cm <0  THEN  GO  TO  7000 
520  PRINT  "Hy  90!!“ 

cpacp  +  INT  iRND*6>  +1;  IF 
EN  LET  CP  si;  LET  C*sta  + 


530  LET 


200; 

GO 

TO  690 

550 

LET 

f  si 

550 

IF 

bS(Cp) 

="Coa»uni t y 

Chest 

0 

570 

"  THEN 

GO 

TO 

100 

IF 

bS 1 cp> 

•"incoae 

tax 

01 

"  THEN 

GO 

TO 

150 

590 

IF 

b$ ( cp) 

s"Chan  ce 

r% 

"  THEN 

GO 

TO 

200 

500 

IF 

b  a  t  cp ) 

-"Oa i  i 

0 

600 

"  THEN 

GO 

TO 

250 

IF 

ba  *  cp) 

-"Parking 

"  THEN 

GO 

TO 

300 

Iff 

610 

IF 

ba i cpy 

-"GO  TO 

l-IRIL  * 

nk 

"  THEN 

GO 

TO 

350 

3 

620 

IF 

ba ( cpy 

-"Super 

tax  J 

A 

"  THEN 

GO 

TO 

400 

40 

621 

IF 

Pi(cp) =b*(CP)  THEN  LET  c 

a-ca 

-P  {  cp)  ;  LET  fsafp  t  CP3  . 

PRINT 

"I  trespass  on  ";b0(cp>;  GO  TO 
500 

525  IF  v(cp)-0  THEN  GO  TO  590 
527  IF  b0fCp> =C0tCp)  THEN  GO  TO 

520  PRINT  "I  landed  on  “;bf<cp> 
530  IF  to/v  fcp)  Ji®  OR  cav!000  T 
HEN  GO  TO  590 
540  LET  H  *INT  (RNDfS)  >1 
650  IF  n-5  THEN  PRINT  "I  buy 
bS  i  cp  )  J "Ui t h  4  houses  and  1  hole 
l " :  GO  TO  550 

670  PRINT  "I  buy  b$  icpy  '  "Wi  th 
";n; "  houses"  _ 

690  LET  c  « CP)  » fv  ICP> ^10>  .  LET  C 
( cp  )  —  c  ( cp ) + in  *2001  :  LET  c| tcp) 

•  cep) 

600  PROSE  50 

700  PRINT  " _ 
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TS“l3g> 

1000  IF  f»0  THEN  PRINT  ”You  land 
pn  coiiiuni  tw  chest” 

1010  IF  f»  1  THEN  PRINT  ”1  land  O 
n  community  chest" 

1000  LET  C -INT  iRNDfS) fl 
1030  GO  SUe  <1060  RNO  C*lj+<1100 
RND  C«2>  *11240  RNO  c«3;*<21&6  R 
ND  C*47+ri220  RNO  C»S> 

104.0  IF  r  *1  THEN  GO  TO  690 

1050  IF  f =0  THEN  GO  TO  500 

1060  IF  f«0  THEN  PRINT  "You  inh* 

fit  «100":  LET  a»a+100 

1070  IF  f-0  THEN  PRINT  "I  inheri 

t  6100" ;  LET  CicC»fl00 

1080  RETURN 

1100  IF  t 90  THEN  PRINT  “YOUT  ann 
ujty  aatures— collect  *200":  L 

ET  a  s«  -•'900 

1110  if  f *1  THEN  PRINT  "Mv  ennui 
ty  Biture-Z  collect  6900":  LET  C 
*  >cit200 
1120  RETURN 

1140  if  f 90  then  print  "Can*  err 
or  in  your  favour  collect 

*200":  LET  a«a*200:  RETURN 
1150  PRINT  "Bank  error  in  ay  fav 
ztur •  I  pet  6200";  LET  c*~ca+200 

1160  RETURN 

1100  IF  f-0  THEN  PRINT  "You  have 
von  610  in  a  beauty  contest" 

LET  *«a+10:  RETURN 
1190  PRINT  "I  have  von  610  in  a 
beauty  contest";  LET  casta* 

10 

1200  RETURN 

1220  IF  f-0  THEN  PRINT  "HR) ^  Pay 
6S0  insurance":  LET  RETU 

AN 

1230  PRINT  "Ugh  I  have  to  pay  65 
0  insurance":  LETT  ci=ce-50 
1240  RETURN 

1500  IF  f *0  THEN  PRINT  "Hee  H66 - 
Pay  6200  incoit  tax  LET  e*e-2 
30;  GO  TO  1040 

1510  PRINT  "Oh  no)  I  aust  pay  62 
30  in  i n  coat  tax "* :  LET  ca=ca~200 
1520  GO  TO  1040 

2000  IF  f 90  THEN  PRINT  "YOU  land 
on  Chance" 

2010  IF  r «1  THEN  PRINT  "X  land  O 

n  chance" 

2020  LET  C  arINT  (RNO #5)  *1 ;  IF  C«5 
THEN  GO  TO  2170 

2030  GO  SUE  (2050  RND  c«l> * (2000 
RND  C=a) f 12110  RND  C=3)*<2140  fl 
ND  C  *43t 

304.0  GO  TO  1040 

2060  IF  f *0  THEN  PRINT  "YOU  VOn 
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a  crossword  pvizle  &  9etfl90":  L 

CT  RETURN 

2060  IF  f-1  THEN  PRINT  "I  Win  » 

crossword  pmiu  4  stt  $100" :  L 

ET  C«-Cifl00 

2070  RETURN 

2000  IF  f s0  THEN  PRINT  "YOU  »US t 
90  bock  thftft  pt»cas":  LET  p-p- 

2090  IF  f  -1  THEN  PRINT  "I  1VS  t  9 
o  bock  thrai  piatt":  LET  cp  =cp  -3 
2100  RETURN 

2110  IF  f-0  THEN  PRINT  "Rdvance 

to  Hay  loir!**:  LET  P  -40 

2120  IF  f«l  THEN  PRINT  "I  ad  vane 

e  to  Hay  fair":  LET  cp=40 

2130  RETURN 

2140  IF  f-0  THEN  PRINT  "YOU  Nave 
been  speeds  no  09am-  that's  9 
15":  LET  0-0-15:  RETURN 
2150  PRINT  "I  ao  fined  015  for  s 
peeding":  LET  caeci-is 
2100  RETURN 

2170  IF  f«0  THEN  PRINT  "GO  TO  JR 

IL ,  Do  not  pass  go)";  GO  TO  3500 

2100  PRINT  "I  oust  90  to  jail,  O 

H  dear*":  GO  TO  3500 

2500  IF  f=8  THEN  PRINT  "YOU  are 

Just  visiting  jOiL":  GO  TO  1040 

2310  PRINT  "I  ao  in  jail,  but  ju 

st  visiting":  GO  TO  1040 

3000  IF  f«0  THEN  INPUT  "Do  you  ¥ 

ant  to  partM;0| 

3010  IF  f  *1  THEN  PRINT  "I  will  n 
ot  park  here":  GO  TO  1040 
3020  IF  dp  <  1)  *"n  "  THEN  PRINT  "Oi 
se  Choice":  GO  TO  1040 
3030  LET  f-0;  GO  TO  1040 
3600  IF  f-0  THEN  PRINT  "You ' re  i 
n  jai 1,050  to  get  out":  LET  *  =» - 
50:  GO  TO  1040 

3510  PRINT  "I ' »  in  Jail  &  oust  p 
ay  050":  LET  ct>ci- 50 
3520  GO  TO  1040 

4000  IF  f-0  THEN  PRINT  "YOU  »US X 
pay  9190  super  tax":  let  »s»-10 

4010  IF  f-1  THEN  PRINT  "I  1US t  p 
ay  9100  super  tax":  LET  ce-ce-10 

4020  GO  TO  1040 

5000  PRINT  "You  have  no  mo ney)  5 
orry  you  lose";  input  "anothe 

r  9«»t?"; »$ 

5020  IF  THEN  RUN 

5030  6TOP 

7000  PRINT  "BOO  i  lose,  gen  don 
e":  GO  TO  6010 

3000  BORDER  0;  PRPER  0:  INK  6:  C 
L5 

5005  DRftU  0,175:  DR RW  255,0:  DRR 
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UP  0,-175:  DRAW  -853,0 
3010  PLOT  24,151:  DRAW  207,0 
3020  DRAW  0,-127:  DRAW  -207,0:  D 
PAU  0,127 

3030  LET  *$B,,POLOMONy  POLDKOP/ 
POLOMONY  " 

3038  FOR  a«l  TO  7 

8030  PRINT  AT  10,10;  PAPER  0-4 J 
INK  0; "PRESS  A  KEY- 

8037  BORDER  4  _ 

3040  PRINT  AT  0,4;  INK  a;  Apt  TO 
24) :  PAUSE  2 

3080  LET  A*aA4<2  TO  )+A»Cl) 

0000  IF  INKEY} <>""  THEN  GO  TO  01 
30 

9070  NEXT  4 
3080  GO  TO  0035 
3100  BORDER  0:  CL. 5 
3110  RETURN 

9000  DATA  "GO" ,  "Old  Kent  Road4*," 
coiftuni  ty  Ch«3t“/'Whi  techipe  l  Ro 
ad", "Incoee  tax- 

9010  data  "King's  cross  station" 
,  "The  Angel  Is  t  i  ng ton  ", "Chance ” , 
Tuiton  Road" 

9020  data  "Ptntonvi  Ue  Road",  "Ja 
i i", "Pat l  Hal l", "Elect ri c  coopan 
y ,  "uni  tena  i  l  ” 

2030  data  "Nor thoaSer land  avenue 
"Mary lebont  sta t i on” , "Bo#  Stre 

?r 

2040  DATA  "Coeaunity  Chest", "Mar 
ibourgh  St ree t ", "Uine  street", "P 
3  r  iiftfl"i”3trandr’ 

9050  DATA  -Chance ", "Flee t  Street 
■■ ,  "Tra  fa  tga r  Square” ,  "Fen church 
station" 

9060  data  "Leicester  square", "Co 
wentry  strait", "Water  worXa", "Pi 
c  cadi  ly  “ 

9070  DATA  "GO  TO  JAIL J " , "Re gen ts 
Street", "Oxford  street", "Coaaun 
i ty  Ches  t ” 

9060  DATA  "Bond  S t ret t ", “Li ve rpo 
oi  street  station", "Chance", "Par 
t  lane"  „  .  „ 

9000  DATA  -super  tax " , "Mag f ai r " 
9100  DATA  0,S0, 0,80,0,200,100,0, 
100, 120,0, 140, 150, 140, 160,290, IS 
0,0,100,200,0  ' 
9110  DATA  220,0,220,240,220,260, 
260, 150,200,0,300,300,0, 320,200, 
0,350,0,400 
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CONNECTEZ-VOUS 

QUATRE 


If  your  French  is  as  bad  as  mine,  you  II  immediately  recognize  that 
this  program  is  a  version  of  ‘Four  in  a  Row'  or  *00110001  Four'.  It  is 
very  simple  to  play,  and  you  are  given  (see  line  100)  the  choice  of 
making  the  first  or  seoond  move.  The  Spectrum  does  not  put  up  a 
particularly  strong  defence,  and  does  not  always  know  when  the 
game  Is  over.  You  may  wish  to  Improve  the  program  to  compensate 
for  these  two  weaknesses.  Connectez-voos  Quatre  was  written  by 
Tim  Rogers. 

SRCH  CormictiZ-vsus 

border  0 

M  INK  5  _ 


40  CLB 

45  REM  ©  TdR  83 
50  INPUT 

MUh«t  is  your  rteae, 

00  iF*af»**M  THEN  LET 

»£*"Ho»an" 

56  DIM  r IB) 

70  PRINT  ‘liplHW 
00  FOR  0  *1  TO  6 
00  PRINT  "Vfffffffft" 
00  NEXT  0 
96  PRINT 

100  PRINT  01;  "First  or 


JlJddO?" 


110  ^RlflT'  01;  “Press  *1*  OR  '3'“ 
100  XF  XMKJEY0  <>  "1  **  RMD  XNKEVf  <  > 
"R”  TMEN  GO  TO  130 
136  INPUT  MM 
150  IF  INKEYf»MlM  TMEN 
GO  TO  300 

140  LET  i »XNT  fRND»03  +1 
150  GO  TO  400 
300  IF  INKEYf  f  >  ”  "  TMEN 
GO  TO  300 

310  PRINT  RT  13>0; MYOUf  9©  M; 

330  PfllNT  “Which  Slot?" 

330  LET  i  *« INKEYf 
330  IF  INKEYf «"  71  THEN 
GO  TO  590 

340  IF  CODE  if <49  OP  CODE  J0>56 
THEN  GO  TO  330 
350  LET  i  «URL  i  f 
350  ir  r  f i >  *0  TMEN  GO  TO  330 
370  LET  r  f J  > -r  ri)  *1 
380  PRINT  RT  9-r  f  j  >  #  i  ; 

PRPER  3;  ”  “ 
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400 

405 

410 

400 

430 

440 

450 

460 

470 

430 

400 


500 


510 


530 


PRINT  RT  1040;  FLB5H  1; 
•THINKIW 
rOR  a«l  TO  5 

FOR  d-1  TO  3 

J>*0 

POR  1>«#  TO 

LET  c»C4IRTTR  (d,61«J£' 

LET  hmh+  iPfTTR  fd, 10*001 
NEXT  b 

IP  c*4  OR  J>  *4  THEN 
OO  TO  600 

IP  c*3  AND  RTTR  td ,  tO  «g 
THEN  PRINT  AT  d , b;  PAPER  1; 

“  GO  TO  600 

IP  t-3  AND  ATTR  fda- 1*>  1J  J 
*6  THEN  PRINT  RT  d,»-l; 

PAPER  1; “  M;  OO  TO  660  _ 

IP  b <9  THEN  Ic  b*3  AND  RTTR 
ids  b)  *6  THEN  LET  J*X*. 

OO  TO  560 

IP  h*3  AND  RTTR  td  ,  a  -  f  »>1J  1 
■6  THEN  LET  J«a-fa>17; 

OO  TO  560 
DEEP  *01, a  ad 
NEXT  d 
NEXT  a 

LET  J mi +INT  <RND*S> » i i <61 - 

INT  (RND»0J  a  f  i >11  _ 

IP  r ( J) *0  THEN  OO  TO  550 
LET  rl^).*rrj>4l 


570  PRINT 


ii  it 


PAPER  ±> 


600 

610 


630 

635 

640 


OO  TO  300 

POKE  03653,6;  REH  CAPS  LOCK 
INPUT  ”UhO  VJA1?  /Ji/W 
IP  af*'TM  THEN  OO  TO  6J0 
IP  h>2  THEN  PRINT  AT  0,16* 
“You  «in  OO  TO  600 

IF  c>0  THEN  PRTHT  RT  0,16* 
“X  win 

IP  INKEY0  f  >  M  “  THEN 
OO  TO  600 

IP  XNKEY0**'“  THEN  OO  TO  600 
POKE  03650,0;  REH  06  LX  OPP 
CL  3 

OO  TO  65 
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This  simulation  program,  written  by  Peter  Shaw  and  Tim  Hartnell, 
allolwsyou  to  run  a  stall  eeWng  a  product  (which  you  can  determine) 
which  sale  better  in  warm  weather  than  in  cold.  Many  programs  of 
this  type  sal  lemonade,  or  ice  cream.  You  determine  at  the  beginn¬ 
ing  how  many  days  you  want  the  simulation  to  last,  and  how  many 
different  traders  you  want  to  take  pad. 

If  you  want  to  run  it  just  by  yourself,  enter  1  when  asked  how  many 
are  to  take  part.  You’ll  be  lead  through  the  program,  to  enter  your 
decisions,  and  the  computer  wM  decide  what  the  outcome  of  each 
day's  trading  it.  At  the  end  of  the  simulation,  the  computer  will  go 
through  the  profits  (or  otherwise)  made  by  each  of  the  traders,  and 
wil  decide  who  has  made  the  moat,  and  thus  Is  worth  the  title 
'Mogul'.  There  is  a  lot  of  room  within  this  progam  to  adapt  it  to  your 
own  wishes  and  include  your  cum  ideas. 

10  REM  Mogul 
00  REM  Based  on  program 
by  Peter  Shew 

30  LET  RC-INT  CRND4100)  +100:  L. 

ET  CP*IMT  (RND+40)  +30 

*0  PRPER  7;  BRIGHT  1:  CLS 
010  INPUT  INK  a;  FLUSH  1; "For  h 
ow  sang  days  do  you  want  the  s 

ales  simulation  to  conti 

nut?  ";d 

000  INPUT  INK  l;  FLRSH  1; "HO*  0 
any  traders  are  coap« 

i ins?" ; P 
030  DIM  X  CP) 

04.0  DIM  R  CP) 

000  FOR  J-l  TO  P 

090  LET  R ( J) *00000:  LET  XCJ)*20 
000 

310  NEXT  U 

320  FOR  X*1  TO  D 

3S0  FOR  U-l  TO  P 

3B0  PRINT  RT  1,4;  INK  i;“ThiS  a 
&  day  plash  i;x;  flash  b;RT  u 
,3; "Stall  number  INVERSE  1;  F 

LASH  Ijjj 

300  LET  JfV)»RCJ) 

390  PRINT  ' '  INK  7;  PRPER  1; “AS 
SETS  0"; R  r J) /100 
4.00  PRINT  INK  6;  PRPER  2:  "Rd 

vertising  signs:  f;RC/i00;  •'  eac 

4.10  PRINT  *  INK  7;  PRPER  3;  "Raw 
materials  cost  ";CP;"c  each" 

4.00  GO  SUB  1000 

4.30  INPUT  FLRSH  l;  PRPER  4;  BRI 
GMT  i; "How  many  signs  do  you  wan 
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t?  “;SI 

M0  INPUT  FLASH  1;  PAPER  3;  BRX 
GHT  i;  "And  hov  easy  units  yfcoies 
a  is  will  you  buy?  M;Qu 

4.00  JF  OU<l  THEM  GO  TO  4.4.0 
S10  LET  CO*tSI«RC)f(OUtCP) 

620  XF  CO<*AfJJ  THEN  GO  TO  870 
830  GO  TO  430 

870  INPUT  INK  2J  BRIGHT  1;  FLAG 
h  l; "Uhit  pries  fin  a  mi  1 1  you 
soil  the*  for?  M;SP 
800  LET  SA*JNT  (CHS  (SXf-lJ rSFJ 
890  XF  SA>9U  THEN  LET  SA*9U 
610  LET  TAsSAtSP 
690  LET  R(J)a(A{J)iTR)  -CO 
698  PRINT  '  '  INK  3;  ” - 


630  PRINT  *  INK  S; "Salts.  "J5A* 
"Day's  profi  t;  iM;  mu) 

0' "Currant  assets: 

04-0  INPUT  FLASH  1;  INK  2;  PAPER 
6; "Press  ENTER  to  continue 

660  CL 6 
710  NEXT  U 
790  NEXT  X 

730  PRINT  INK  3;  FLASH  1; “Stand 
by  for  a  sueeary***" 

74.0  FOR  q«l  TO  30:  BEEP  q/1000, 
q:  BEEP  qxl800,60-2*q:  NEXT  q 
780  CLS 

788  LET  U1*0;  LET  U*0 
760  FOR  Jsl  TO  P 

770  PRINT  TAB  l;  INK  9; "Stall; 
»J; tab  12;  INK  1;  "Assets.  S";A« 
vH  sieo 

780  IF  nfvH>Ul  THEN  LET  Ul«AfUI 
:  LET  UsJ 
790  NEXT  U 

800  PRINT  ' '  INK  3;  FLASH  1;  IN 
UERSE  1; "The  Mogul  is  the  opertt 
or  of  stall  nueber  INVCP5C 

0;  u 

810  PRINT  '  INK  3;  FLASH  1; “UhO 
ended  up  m i th  inverse  i; "S"; 

Ul/100 
1210  STOP 

1220  PAINT  ''"Here  is  the  ueathe 
r  forecast ; " 

1230  FOR  0*1  TO  30:  BEEP  2X1000, 

4.0-9:  SEEP  9/1000,9;  NEXT  g 

124.0  LET  Ch  *INT  CRND440J 

12B0  IF  Ch  >2S  THEN  PRINT  *  INK  2 

, "He a t  wave”;  RETURN 

1280  IF  Ch  >18  THEN  PRINT  '  INK  1 

, "Fine  and  sunny";  return 

1270  IF  Ch  >8  THEN  PRINT  '  INK  1; 
"Cloudy,  but  Bild";  RETURN 
1280  PRINT  INK  2; "Cold  and  Wtt" 
1990  RETURN 
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Stait  nuBber  fl 


ASSETS  $200 

Advertising  signs:  $1.19  each 
Raw  eateriais  cost  sac  each 

Here  is  the  weather  forecast: 
Fine  and  sunny 


sates:  18 

Day's  profit:  $-29.87 
current  assets:  $170.33 


stall:  1 
stall:  0 
stall:  3 


Assets : 
Assets : 
Assets : 


5X4.9 .  a 
123.5 
176.  a 


who  ended  up 


«i  th 


Slat  l 
Stall 
Stall 


1 

s 

3 


Assets 

Assets 

Assets 


$149.4 
*1*3.3 
*176. a 


The  Mogul  is  the  operator  or 
stall  nueber  3 

who  ended  up  with  $176. a 
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COURTBALL  DODGE 


in  this  f«8t-nx>vtno  game  by  PetorShmvt  you  uMth»wS<'«ndH8wlo 
move  your  base  in  the  direction  indicated  by  the  arrows  over  those 
keys.  The  zero  key  Is  used  to  fire.  Every  time  your  mMIe  hits  the 
bouncing  bal  your  score  rises,  but  you  are  Idled  (!)  If  the  bafl  hfea 
you.  The  bait  is  graphic  A,  the  base  is  graphic  B,  C  and  D  and  the 
missile  is  graphic  E. 


le  REM  COURTBALL  DODGE 
80  REM  PETER  SHRU 

21  tlT  siS?  LET  a«13:  LET  fa- 
T  IRND>5)  ■  LET  C-INT  (RND*39J  :  L 
CT  d«l:  LET  tsl 

SO  BORDER  7:  PRPER  7:  BRIGHT  1 

INK  1:  CLS 

60  60  SUB  9000 

70  IF  bo21  THEN  GO  TO  90 

60  If  C>S*1  OR  C*a+2  OR  Csa+3 

then  ©o  to  see 

90  LET  Sai+tlMKEYS^'B"  HN£>  a  <2 
7)  -  (INREYSa'-S^  RNS>  a  >-11 
100  PRINT  RT  21,  a;  “  '* 

110  IF  INKEY»  =  ,,0”  THEN  60  SUB  1 
000 

120  PRINT  RT  b,c;'*  " 

130  LET  b-b+d.  IF  b  >20  OR  b<l  T 
MEN  LET  d*-d:  BEEP  .006,15 
14.0  LET  £*C+e.  XF  030  OR  C  <1  T 
HEN  LET  «■-*:  BEEP  .000, 

160  PRINT  RT  b,c;  INK  2; 

160  PRUSE  1 
170  60  TO  70 

500  PRINT  RT  1,5; ‘GRHE  DOER  VOU 
scored 

510  IF  Slhi  THEN  LETT  bias 
520  PRINT  ' 'TRB  5; Mhiyh  today  ” 
;hi 

530  INPUT  wUou id  you  Lise  anoth 
ar  aase  LINE  as: 

THEN  GO  TO  4>0 


IF  tlJ  «’*y 


1000  LET  ^aa 


VTEP  -1 


«»  i  ■  ■ 


1001  FOR  ?«20  TO  0 

1002  PRINT  RT  /,g;’ 

1005  IF  bo21  THEN  60  TO  1080 

1010  IF  CMfl  OR  C*a+2  OR  C»a+3 

THEN  GO  TO  S00 

1080  LET  a bs ♦ f INKEY$»M8M  RND  a <8 
7)  -  tINKEVe«§,S”  RND  a>-u 
1030  PRINT  RT  21 ,  a;  “  80ft  ** 

104.0  PRINT  RT  b,c;f'  "  _ 

1060  LET  bab-fd  :  IF  b>20  OR  b<l  T 
HEN  LET  d  »-d :  BEEP  .006, IB 
1060  LET  C8CH.  IF  030  OR  C  <1  T 
HEN 
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107®  PRINT  AT  b,  c;  INK  2.; 

1080  PRINT  NT  f , 9J "  " 

1085  ir  f*b  AND  9  =C  THEN  GO  TO  2 
800 

1090  NEXT  f 
1100  RETURN 
3008  LET  S*S+1 

3010  BEEP  .5  j_S*2:  BEEP  *2, -£*2 
0000  CLS  .  RETURN 

9000  RESTORE  :  FOR  Z«U5P  “a**  TO 
HSR 

901®  READ  X;  POKE  Z,X 
9090  NEXT  Z 
9030  RETURN 

00, 190,255,955,255,255 

0,0,0,31,03,127, 127,12 

0,24.,  00,255,250,255,25 

0,0, 0,24.0, 252, 254., 254, 

10,0,15,8, 10, 8,18,0 
145,82,0, 195,0,74,137, 


9040  DATA 
,120,00 
0050  DATA 
7 

9000  DATA 
3,255 
9070  DATA 


9080  DATA 
9090  DATA 
B 
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HIGH  ROLLER 


In  this  program,  which  feat ums  some  nice  user-defined  doe 
graphics,  you  and  the  Spectrum  take  It  In  turns  to  roll  two  dice.  You 
add  the  total  of  the  pips,  and  add  this  to  your  score.  You  can  ml  the 
dice  as  many  times  as  you  like,  but  if  you  rol  a  seven,  you 
automatically  lose.  The  game  continues  for  nine  winning  rounds 
(that  is,  dead  heats  do  not  count).  Clear  player  prompts  are 
included  within  the  program,  so  you  should  have  no  problems 
understanding  how  to  play  it  when  you  get  the  program  running* 
HIGH  ROLLER  was  written  by  Tim  Hartnell 


S  REM  HIGH  ROLLER 

1§  PPrIr0 7?SeRlQMT  1:  CLS  ;  BO 
RDER  2  _ 

as  PRINTER?' INK®g;  PRPER 
RND*7;  PLASM  l;  r,PftSS  R  tO  fOl 

l  ,  'O'  to  quit*' 


30  LET  V$-IMKEY$ 

4.0  IF  V$<>M9*‘  AND  VS<>,‘Om  AND 

THEN 


ipO'Y*1  AND  0$<>"R" 

0 

50  PRINT  PIT  3,0; 

OR  V$ 


GO  TO  3 


♦  * 


AT  5,3,  FLASH  i;  INK 
,40/9;  NEXT  9 


O"  THEN  GO 

TO  300 

70  GO  SUB  000 

90  IP  Z«7  THEN  GO  TO  520 

90  LET  KS-hlfZ 

100  PRINT  RT  7,3;  PLASM  1;  INK 
2; "Your  total  is  ,  XNUER5E  l;hs 
lie  GO  TO  20 
400  FOR  9*1  TO  40 
405  PRINT 
RND 47 ; "  Blend  by 
410  BEEP  0/1000 
430  GO  SUB  000 
440  IF  2m7  THEN  GO  TO  500 
450  LET  C S«CStZ 

450  PRINT  RT  0,4;  INK  2; "My  tOt 
el  1ft  ••;  jnuerse  l;  FLASH  1; eft; 
INVERSE  0;  FLASH  0;  INK  1;  RT  11, 
2; “Your  total  is  flash  i;hs 
470  IF  CSthS  THEN  GO  TO  400 
480  IF  Cft«bft  THEN  PAINT  RT  10*1 
2£  INK  2;  PAPER  6;  FLASH  U  "DtSd 

485  XF  Ci>hS  THEN  DO  TO  520 

400  GO  TO  1000  ^  _ 

500  PRINT  RT  12*12;  INK  2;  PAPE 
R  8;  FLASH  i; "YOU  SinlH:  LET  h«h 

510  GO  TO  1000 
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520  PRINT  RT  1 2,13;  INK  St;  PRPE 
R  6;  FLRSH  1;  "I  Win<M.  LET  CZ-CI 
+1 

530  GO  TO  £000 
620  STOP 

606  DIM  • C61 ?  LET  h *0 :  LET  ci-9 

630  FOR  a«l  TO  6 

640  READ  d 

6S0  FOR  b»0  TO  7 

660  RERD  C 

670  POKE  USR  CHRf  dfb.C 

680  NEXT  B 

686  LET  E tRJ *D 

600  NEXT  R 

700  RETURN 

710  DRTTR  144,255,255,265,231,23 

1.255.255.255 

720  DRTR  14.6,255,  150,  160,255,25 
6,24.0,24.9,265 

730  DRTR  146,255, 159, 191,231 , 23 

1.253.249.255 

740  DRTR  147,255,153,153,255,25 

5.153.153.255 

750  DRTR  140,255,153,169/231/23 

1,189,153/255  _  „ 

760  DRTR  149/255,153/266,219/21 


9,255 

800 


»  ,  1 5  3  ,  i 

REN  Roll 


dd  bon«s 


806  CL 6 


610  FOR  qsl  TO  20 

820  LET  JOINT  (RND»6> +1 

630  LET  uaIMT  I PHD *6) +1 

840  PRINT  RT  6,6;  INK  1;  CHR0  C( 

x ) 

650  PRINT  RT  8,8;  INK  2;  CHR0  €  ( 
855  BORDER  RND  *7 

880  BEEP  • 001 ,50 -S*q :  DEEP  .001 
/2#q 

070  NEXT  q 
875  BORDER  2 


880  LET  2 *x 

898  PRINT  RT  12,3;  FLRSH  1 ;  INK 
4; "Roil  d2s  ”;  inuerse  l;x;  INU 
ERse  0;  ”  «nd  **;  inuerse  i;  y 


980  PRINT  RT  12,3;” 

RT  6,6;"  ”;RT  8,6;”  ” 

910  RETURN 

1000  PRINT  FLRSH  1;  INK  4;  “SCOfft 

1010  PRINT  INK  2;  '  "'YOU  ";h 
1020  PRINT  INK  1;  NO  C2 
1025  IF  CZ  +h *9  THEN  GO  TO  1060 
1030  IF  H>CI  THEN  PRINT  FLRSH 
l;  ink  2;  "You  art  leading*' 

1040  IF  CZ  >K  THEN  PRINT  *  ^  FLRSH 

.002,9 


l;  INK  2, "I  mm  itadin 
1080  FOR  9*1  TO  100 
-  NEXT  9 
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1075  IF  CZ+h«9  THEN  GO 
1060  GO  TO  17 
1090  CLS 

1095  PRINT  FFT  4,4;  INK 
E  1; “End  of  the  ga»e... 
1100  IF  h<C2  THEN  PRINT 
UPSH  i;''#Tf*B  6;  “I  din* 
1110  IF  h>CZ  THEN  PRINT 
LR5H  l;''"TRB  5; "YOU  Ui 


TO  1090 

3;  INVER & 

»• 

ink  a;  f 

i 

’ INK  a;  F 
n  i  •• 
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ECONOMY 

Do  you  think  you  could  run  the  economy  better  than  the  govern¬ 
ment?  Don  t  we  all.  Here's  a  program  which  puts  you  in  the  hot  seat 
to  control  government  spending.  If  you  spend  more  than  one  sixth 
of  your  reserves,  unemployment  wit  be  reduced,  but  spending  less 
than  one  eight  will  increase  It,  although  Inflation  will  fal<  Like 
governments  in  real  Ids.  one  of  your  perpetual  battles  will  be  to 
balance  unemployment  and  inflation  in  such  a  way  as  to  keep  the 
economy  in  the  best  health  possible. 


If  you  spend  less  then  $6000,  the  populace  wil  riot. . .  and  you’ll 
have  to  pay  for  any  damage  caused  by  the  riot  Your  government  is 
safe  so  long  as  you  keep  reserves  about  $10,000,  inflation  below 
40%  and  unemployment  below  5000,  If  you  fail  on  any  one  of  these, 
you  have  to  call  an  election.  If  you  lose  the  election  (or.  incidentally, 
you  bankrupt  the  country)  then  the  game  is  over.  Your  reserves  will 
be  boosted  if  you  manage  to  get  inflation  below  4%, 

There  are  other  incidents  within  the  program  which  can  affect  your 
period  in  power,  but  IK  leave  those  for  you  to  discover.  Economy 
was  written  by  Robert  Day,  and  modified  by  Peter  Shaw. 


10  REM  ECONOMY 

ae  print  prr  10.13;  flash  i;  “ec 

ONOMY";  POKE  23009/50  ^ 

30  BORDER  2;  PAPER  2;  BRIGHT  1 
INK  0:  FDR  R»1  TO  50:  BEEP  *00 
8  ,  A ;  BEEP  .01, -ft;  NEXT  A.  CLS 

4.0  LET  IN  *10;  LET  UNal060:  LET 
QR«10000:  LET  G0sl000:  LET  X2»0 
50  RANDOMIZE 
00  PRINT  “Year  “;XZ 
70  PRINT  “Inflation  IN;  "X" 
00  PRINT  /Muntsploys«nt  “;L»N 
90  PRINT  '“Government  reserves 
E“;OR:  IF  OR  <0  THEN  PRINT  “NO  M 
ORE  PESERUE5 M  „•  STOP 
imprint  *  “Government  spending 

lio  input  “ut>at  mill  Government 
spending  brncx  t  gear  7  £" ;  P;  if 
G<GR  THEN  LET  GS-G 

120  IF  GfBPfl  AND  G>0  THEN  GO  T 
□  150 

130  IF  G>GR+1  THEN  PRINT  ' “INSU 
FFICIENT  RESERVES";  PAUSE  200 
140  CLS  ;  GO  TO  70 
150  CLS 

100  LET  GRsGR-G 
170  LET  ZZ*(RNl>*6)  +2 
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180  PRINT  "YOU  Spen  t  £‘#;0 

190  print  "Rt3ervcs  now  C";  or 

200  IF  6>  IOR*/0i  THEN  LET  UN-1NT 
(UN# ( 1/ZZ)  )  +1 :  PRINT  "Hi  9b  SOV« 
rnicnt  spending  cuts  une»pto«Kl 
ent  to  ";L»N 

210  ir  GfCGR/'OJ  THEN  LET  UN=XNT 
(UN#  tUN#  t2s2Z)  >  >  :  PRINT  "LOW  90 
ferment  spending  raises  uncap  l 
oyftftn  t  to  UN 
220  LET  XX>(RNDt3) #1 
230  IF  ©<CGR./8J  THCN  LCT  IN* I NT 
cin#  rxx^sj ) #1  _ 

24-0  IF  G>  (OR/8J  THCN  LCT  IN*INT 

< in#  < in#  c lyxxj > y #1 

250  PRINT  '"in /tat ion  now  IN; 

i  ■  a r  •  i 


270 
280 
bOOS 
290 
300 
310 
320 
330 
too  i 
or  tb 
34-0 


UmXNT  fRND#S000J  #1 
IF  IN >3  THCN  GO  TO  310 
print  "Good  in/ tat  ion  rate 


t  to 


or  £ 


LI 


360 

370 


reserves 
GR-GR+U 

print  "Reserves  noa  £";GR 
LCT  Z=lNT  tRNO»iW9»> 

IF  G>4909  THCN  GO  TO  370 
PRINT  "Governaent  spending 
ow/  Riots  cause  a 

of";  PRINT  "daaage" 

LCT  GR.GR-Z  _ _ 

IF  GR  < 1  THCN  GO  TO  510 
PRINT  "Reserves  noa  j GR 

rINT  f  GR#  (RNDtSB)  /IBB 


»  +1 


3B0  PRINT  "Investaent  gain  £";R 


390  LCT  GR-GR+RC  __ 

4.00  print  "Reserves  no#  £  ;  GR 
4.10  LCT  OIL  »INT  (RNDtiJ  #1 
4.20  IF  OIL  d'i  THEN  GO  TO  49B 
43B  LCT  DP«IMT  (RND#2500> 

44.0  PRINT  "»###0IL  CRISIS####" 
450  print  "Drain  on  reserves  "; 
DR 

460  LCT  GR«GR-DR 
47e  PRINT  "Reserves  noa 
4©0  IP  GR<1  THCN  PRINT 

^KRUPT_BB,<>  stop  __ 

490  IF  GR<  10000  THCN  PRINT 
0.JERY  LOU  RCSCRUCSKHB'*  ;  GO  TOC 

500  IF  IN  >40  THCN  PRINT  "|  ICR 
Y  HIGH  INFLRT •  GO  Tl 
510  IF  UN  >0000  THCN  " 

ERV  HIGH  UNCHPLOVHCJ 


;  GR 


520  PRUSC  700 
530  CLS 

540  LCT  XZbXZ^I 
550  GO  TO  60 

560  PRINT  "YOU  MUST  CALL  FOR  RN 
ELECTION • " 
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^67®  PRINT  "PRESS  ENTER  FOR  R  RE 

"SS®  LET  UJ»INT  fR ND»3J  *1 
59®  INPUT  LINE  R$ 

60®  IF  U<> 1  THEN  90  TO  6*0 
610  PRINT  ‘■•»9cff«YOU  LOSTaiffa 

a* 

*%a®  PRINT  MYOO  Listed  “;XZ;**  9* 
»rs" 

63®  STOP 

6*0  PRINT  ‘‘M.'jyDU  UDH!  W  Pr 

ess  nedtine" 

65®  INPUT  LINE 

660  CLS 

67®  GO  TO  60 
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REACTION  TEST 


This  program  pita  your  reflexes  against  the  relentless  Spectrum 
timer.  Written  by  Qwyn  Dewey,  the  program  features  a  very  clever 
printout  at  the  end  of  each  round,  showing  how  well  you  did  in  that 
round,  with  your  best  and  worst  times. 


When  you  are  ready  to  start  press  ENTER,  and  the  first  of  ten 
characters -chosen  at  random  from  the  Spectrum  keyboard  and 
including  punctuation  marks,  and  upper  and  lower  case  lettare-wiil 
appear.  You  have  to  press  the  relevant  key  (using  SHIFTS  as 
needed)  as  quickly  as  you  can.  The  screen  w»  then  clear  and  alter 
a  short  delay,  a  new  character  will  appear. 

At  the  end  of  the  round,  a  bar  graph,  as  shown  In  the  sample 
printout,  will  ted  you  how  well  you  did.  If  you  want  to  use  the 
program  for  several  people,  to  get  the  best  result  from  among  them, 
change  the  GOTO  90  at  the  end  of  line  560  to  GOTO  10. 


7  let  hcisesees 

a  LET  hf-”” 

9  let  i  a 


10  BORDER  0:  PAPER  0:  INK  7; 


0 

C 


LS 

00  PRINT  NT  0,9;  INK  Si  PAPER 

6;  "REACTION  TEST . 

30  PAUSE  50 

40  PRINT  INK  4;"Uhen  yo u  are  r 
eadu  press  *  enter ' a  a  randoi  cha 
racier  will  appciron  the  scree/)! 
33-90494*109)  .YOU  »U»t  theft  pr«* 
&  this  character  on  ti»e  jttybPar 
d  a  your  tiae  is  recorded*vou  h 
ive  ten  goes  a  if  your  average  i 
s  good  you  could  seat  the  FL 
RSH  l; "HIGH  SCORE!" 

S0  PRINT  '  INK  S;  "AEHEHBER:  t  J9 

6  si  p&int*  "S*>  act  otucuLy 

•  i  •• 

70  input  "Enter  V*V£  &***?" L*- 
INE  B|;  IE  LEN  B«>)3  THEN  90  TO 
70 

89  RANDOMIXE 

90  CL8 

100  PRINT  INK  9;  PAPER  9;  "KtybO 
ard  test" 

110  PRINT  PAPER  2;  *193459769 

B .  QUERTYUIOP .  f»5Dr0HJKLfl>M 

‘©ZXCUBNMffBp  " 

115  rOR  Tsl  TO  0 

190  FOR  g«l  TO  30:  BEEP  0/1090# 
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g i  BEEP  9/1800,60-3*0;  NEXT  9 
125  NEXT  i 
130  OIH  b l 103 
140  FOR  J *1  TO  10 
180  FOR  9  ml  TO  30*RND»40;  BEJ 
•001,g :  NEXT  f 

18S  POKE  53675.0.'  POKE  53873,8. 


180  FOR  9-1  TO  30*RND»40;  BEEP 
.001,9;  NEXT  9 

188  POKE  03875, 0;  POKE  53873,0.' 
POKE  53674.,  0 

160  LET  0  *INT  (RN0i90.1  *33;  IF  0 
>-01  RN0  a  <-93  THEM  80  TO  180 
170  rriht  prr  18,10;  "Press;  ";CW 
Rf  a 

178  LET  V  0  -TNKEY# 

176  PRINT  RT  0.20;  FLR6H  1;»0 
^180  IF  0$<>CHR|  a  THEM  80  TO  17 

100  LET  b  f  i  3  s  f  6SS38*PEEX  53874* 
556»P£EK  23673+PEEK  536753 
198  FOR  9*1  TO  30:  BEEP  .009,9; 
NEXT  9 

500  PRINT  RT  18,10;'*  H;fl 

T  0,50;**  ** 

510  NEXT  i 
550  LET  C  — 0 

558  LET  y-O.-  LET  Z -100000 

530  FOR  1-1  TO  10 

54.0  LET  C-C+fcfil 

241  IF  b  C i  3  > V  THEN  LET  yab(i) 

545  IF  b  f  i  3  <Z  THEN  LET  *=bfjl 

580  NEXT  i 

560  LET  C-INT  CC/103 
570  LET  C-C/30 

578  IF  C<h  THEN  LET  h«C;  LET  bp 

969  PRINT  RT  51.0 

588  POKE  53695,585 

590  PRINT  INK  1;  PRPER  6;  MR00C  t 

ion  t*S  t - - *' 

300  PRINT  INK  3 '  "By  G»yn  O«b09“ 
310  PRINT  INK  3  *  "*0/  “;ap;”*^’* 

350  PRINT  INK  3"'RMCtiOD;  -M 
330  PRINT  *  INK  4.;  MUor5  t  .*  V./50 

;  **  sacs’* 

34.0  PRINT  *  INK  B;  HBif  t  :";z/BB 
;  **  sa  cs" 

380  PRINT  *  ink  6;  "Rvcra9t.  **;  f; 


360  PRINT  INK  5*  "Today ’.s  htsf' 
368  PRINT  INK  a  *  “aver age  ** 

370  PRINT  INK  5" "By  M;h$ 

380  RRIHT  INK  5#J> 

390  FOR  i -0  TO  10 
4*00  PRINT  RT  i  ,  19;  H_“ 

410  NEXT  i 

450  FOR  i *16  TO  0  STEP  -1 

125  5££TiRT 

448  FOR  i  s50  TO  59 
450  PRINT  RT  19,  i;  INK  4+f3#Cb( 
*-19Joy  RND  b  fi  -193  <>I>  3  ;  i  -19 
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4-SS  NEXT  1 

4.00  print  frr  ai,»3;  'Tf«5M 

4.00  PRINT  RT  1,10;  OUEft  X; 

■  i» 

4.70  FOR  i  TO  238  OTP  0 

S00  FOR  If  -i  TO  4  +3 
SX8  PLOT  INK  2;  It  ,20  _____  - 

01  2  XF  b  C  Ci  -154)  /8)  >  *388  THEN  J> 
RRU  XWK  2;  0,100.-  GO  TO  W5 
310  DRRU  INK  2; 0,  (b (  Cl -1544  /6) > 
✓2 


520  NEXT  It 
54.0  NEXT  i 

54.0  INPUT  *’Prin t«r  Copy?**;  LINE 
z$:  IF  THEN  GO  TO  5*5 

54.6  IF  OR  z4(ll*MtfM  T 

HEN  COPY 

54.7  CL5 

350  PRI^fT  RT  0<0;,,PrfW  'p'  IP  p 
t.«y  »gain  or  'q1  loquit" 

500  If  xwKEVi-Mp”  or  iwKfyje"p M 

OR  XHKEV0*CH»0  3*  THEN  GO  TO  TO 
570  XF  XNKEV0»'*q "  OR  INKEy» 
THEN  BO  TO  0010 
580  BO  TO  000 


Reaction  test 

By  G«yn  oeveu 
Of  Tia'S 
React i on : - 
uo r S t :  4 . 44  sacs 
Best  : 1.00  sacs 
nverigc: i*76  sa 
Today's  bast 
average 
By  Tie 
1.70 


123*5070010 

Trys 
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Reaction  teat 


6 


-  Sec& 

By  G«yn  Dewey  3” 

Of  Ti*^ 

Reaction:-  — 

uortt: l.ea  secs  3— 

Best  : 1.02  secs 
Average: 1.32  secs 
Today's  best 


By  Tie 

Trys 


Reaction  test 

By  Qwyn  Dewey 
Of  Tie's 
React i on : - 
worst  :  3. 14.  secs 
Bes  t  :  1.04.  secs 
Averager  1.76  se 
Today's  best 
average 
By  Tie 


6_ 

secs. 


1.32 


Trys 
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DRAGONFIRE 

How  do  you  fit  65535  ADVENTURE  games,  each  with  over  1  xIO* 
locations  into  the  memory  of  a  Spectrum?  Just  key  in  this  amazing 
program  by  Adam  Waring  and  you'l  see.  The  program  as  Hated  is 
only  the  framework  of  an  adventure.  His  not  complete  tor  the  simple 
reason  that  it  never  can  be.  There's  always  something  more  to  be 
added. , ,  magic  swords,  robbers,  secret  massages,  torches  and 
so  on.  The  possibilities  are  endless.  In  its  present  form,  the  aim  of 
the  game  » to  find  five  or  more  pieoee  of  gold  and  get  them  beck  to 
the  exit  before  your  strength  runs  out.  There  are  ten  different  types 
of  monster  out  to  thwart  you  in  this  laudable  aim,  and  a*  of  the 
monsters  can  sap  your  strength.  YouTt  find  that  making  mapa  aa 
you  progress  will  help  you  finish  the  game  successfully. 

The  commands  you  can  use  are: 

NORTH -Moves  you  north,  if  there  is  no  wall  in  the  way 
EAST,  SOUTH,  WEST-As  the  NORTH  command 
HELP-Prtnts  the  available  commands,  and  your  status  (gold, 
strength  and  postion) 

JUMP-Transports  you  to  any  cave  wthin  the  system.  The 
entrance/exit  cava  has  the  co-ordinates  0,  0.  You  first  enter  the 
horizontal  co-ordinate,  then  the  direction  (EAST  or  WEST).  Follow 
this  with  the  vertical  co-ordinate  (NORTH  or  SOUTH).  Jumping 
reduces  your  strength  by  three.  QUIT -To  terminate  the  game 

The  commands  you  can  use  in  the  presence  of  a  dreaded  monster 
are: 

HELP-As  above 
JUMP-As  above 

FIGHT-H  you  decide  to  stand  your  ground,  youll  find  the  odds  are 
stacked  against  you.  But  winning  Increases  your  strength  rating  by 
up  to  30,  while  losing  drops  it  by  up  to  10.  Monsters' strength  varies 
from  one  to  100. 

HOW  TO  ADD  YOUR  OWN 
FEATURES: 

The  Monster/Gold  routine  can  be  caled,  depending  on  the  vakit  of 
Y.  To  add  your  own  features,  use  the  same  technique  aa  In  lines 
H70  and  1180.  W  you  feel  like  a  real  challenge,  you  could  evan  add 
a  third  dimension. 
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10  REM  DRAGON  FXRE 
20  REM  ADAH  OARING 
30  REM  PETER  SHAM 
40  LET  H =100 
50  LET  0=100 
60  LET  F«0 
70  DIM  F (60) 

90  LET  5=50 
90  LET  0=0 

100  RANDOMIZE  INT  (AND #65536 > 
110  LET  X-RND 
120  RANDOMIZE 
130  CL5 

140  POKE  23692,255 

150  BORDER  1:  PAPER  1:  BRIGHT  1 
:  INK  9;  CL5 

160  FOR  »=0  TO  20;  PRINT  TAB 
INK  10^43 #2 ; "  DRAGONFIRE" :  NEXT 

170  PRINT  AT  2^ 16;  INK  7;  FLASH 
l; "PRESS  ANY  KEY" ;  PAUSE  0 
190  CLS 
190  LET  Y*B 

1000  IF  H=100  AND  0=100  AND  G>4 

THEN  GO  TO  9000 

1010  IF  S<1  THEN  GO  TO  9100 

1020  PRINT  "Exits  are 

1030  GO  SUB  6100 

1040  IF  NOT  Z  THEN  PRINT  "North 

» *  t- 

1&50  GO  SUB  5300 

1090  IF  NOT  Z  THEN  PRINT  "East  " 

1070  GO  SUB  5200 

1090  IF  NOT  Z  THEN  PAINT  "South 

tt  . 

1090  GO  SUB  5400 

1100  IF  NOT  Z  THEN  PRINT  "WES  t  ** 

1110  IF  Y«.l  THEN  GO  TO  4000 

1120  IF  Y  <  m 15  THEN  GO  TO  2700 

2000  PRINT  "Uhat  shall  I  do?” 

2010  PAUSE  0 

2020  LET  A0=INKEYS 

2030  IF  A*="h"  THEN  GO  TO  4600 

2040  LET  5=5—1 

2050  IF  A0="n"  THEN  GO  TO  3000 

2060  IF  AJr="S "  THEN  GO  TO  3100 

2070  IF  Ai="«"  THEN  GO  TO  3200 

2080  IF  Ai="*"  THEN  GO  TO  3300 

2090  IF  A J="j"  THEN  GO  TO  2500 

2100  IF  A»=**q"  THEN  STOP 
2110  PRINT  INVERSE  1;  "I  CANT  DO 
THAT";  INVERSE  0:  GO  TO  1000 
2500  PRINT  "Juip” 

2510  LET  S=S -2 

2520  INPUT  "Horizontal  co-ordina 
t  e  s  "  *  C 

2530'  IF  CoINT  C  OR  C<0  THEN  GO 
TO  2520 

2540  INPUT  "East  Of  desl?”;fl$ 
2550  IF  A* (!>="*"  THEN  LET  C«-C 
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jisem  let  H-c*s+i00 

£970  INPUT  'Vertical  co-ordinate 

s  M  1  C 

2586  IF  COIWT  C  OR  C<0  THEN  OO 
TO  2570 

2500  INPUT  "North  or  South  ft* 
2600  IF  R*Cl)*"n"  THEN  LET  C*-C 
2610  LET  U«C*2+100 

£620  PRINT  INUERSE  1; "ZRP";  INVC 
RSE  0 

2630  OO  TO  1000 
2700  OO  SUO  4500 
2710  LET  F <N* *Y 
2720  LET  F-N 
2730  LET  0*04-1 
2740  LET  S~S+6 

2750  PRINT  INVERSE  1; "YRHOO,  IUE 
FOUND  R  GOLDEN  NUGGET" 

2760  OO  TO  2000 
3000  PRINT  "North" 

3010  OO  SUB  5100 

3020  IF  Z  THEN  GO  TO  3500 

3030  LET  ~2 

3040  OO  TO  1000 

3100  PRINT  "South" 

3110  OO  SUB  5200 

3120  IF  Z  THEN  GO  TO  3500 

3130  LET  U«sU42 

3140  OO  TO  1000 

3200  PRINT  "E4St" 

3210  OO  SUB  5300 

3220  IF  Z  THEN  GO  TO  3500 

3230  LET  H=Hf2 

3240  OO  TO  1000 

3300  PRINT  "U«St" 

3310  OO  5UB  5400 

3320  IF  Z  THEN  OO  TO  3500 

3330  LET  H«H-2 

3340  60  TO  1000 

3500  print  "I  can't  va  t  ft.  through 
wails  twit?" 

3510  OO  TO  1000 
4O00  GO  SUB  4500 

4010  READ  ft*;  IF  ft*»" . "  THEN  RES 
TORE  :  GO  TO  4010 
4020  PRINT  "ft”.; 

4030  PRINT  Al; 

4040  PRINT  ’’blocks  your  path." 
4050  print  "Uhat  you  gonna  do  no 

4060  PftUSE  0 
4070  LET  ft* = INKEY* 

4060  IF  ft**" h"  THEN  GO  TO  4600 
4090  IF  ft*»"f"  THEN  GO  TO  6100 
4100  LET  S*S-1 

4110  IF  ft*="j"  THEN  GO  TO  2500 
4120  GO  TO  2110 
4500  FOR  N-l  TO  Z 

4510  IF  Y *F  CNJ  THEN  OO  TO  2000 
4520  NEXT  N 
4530  RETURN 
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4600  PRINT  “Help- 

4610  PRINT  PL«6H  1;  "N"J  PLRSH  0; 
"orth^  PLRSH  1; "S";  PLRSH  0;  Mou 
th" 

4620  PRINT  PLRSH  1;  "E";  rLRSH  0; 

"a* t ",  FLASH  i;  *‘U";  PLRSH  0;  “est 

** 

4.030  PRINT  PLRSH  1;  "  U";  PLRSH  0; 
"uop",  PLRSH  i;  HFHj  PLRSH  0,"igb 

t  " 

4.04.0  PRINT  "Strength  ";S 
4.000  PRINT  "Gold  * :  G 
4.600  LET  RS*"  West*1 

4.070  IP  H>100  THEN  LET  R0«"  East 

i» 


4000  PRINT  "Horizontal  position: 

;  ABS  fH- 100) /a; A* 

4600  LET  AO*"  North" 

4700  IP  U>100  THEN  LET  A0*"  SOU t 

h" 

4710  PRINT  "Vertical  position;  " 
;rbs  (U-100) /2;  a> 

4720  GO  TO  1000 
5150  LET  U*U-1 
S1O0  GO  SUB  O000 
0170  LET  V-U+l 
5100  RETURN 
5200  LET  U*U  +  1 
5200  GO  SUB  O000 
5270  LET  V*U-1 
5290  RETURN 
5350  LET  H*H+1 
5300  GO  SUB  O000 
5370  LET  H=H-1 
5300  RETURN 
5450  LET  H»H— 1 
5460  GO  SUB  6000 
5470  LET  H-H+l 
5490  RETURN 

6000  LET  Z»SOR  RBS  1H/X*ai/X)> 


6000  LET  Z=Z-INT  Z 

6070  LET  Yl=2 

6000  IP  Z  <  #  S  THEN  LET  Z-0 

6090  RETURN 


0130  PRINT  "FIGHT J ! ! " 

0150  IP  RNDf5(20  THEN  GO  TO  0500 
0170  PRINT  INVERSE  1; "CONGRRTULR 
TIONS  YOU'VE  OLRIN  THEGRUESOHE  C 
RERTURE" 


6200  LET  SsS4Yt3 
0210  LET  P  CNJ  =Y1 
6220  LET  P=N 
6290  GO  TO  1000 

0900  PRINT  INVERSE  1; "YOU'VE  BEE 
N  BEATEN*  YOU'RE  NOTHING  BU 

T  R  BIG  USED! 

6550  LET  S*S— Y 
6590  GO  TO  2000 
6090  RETURN 


9000  CLS 


9050  PRINT  INK  2:  "III  I  I 
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w 

avt  cscaptd  - 
this  VII  POSS 

i  b  Lft vv 
9090  STOP 

9100  BORDER  O:  PAPER  O;  INK  7 
914.0  CLS 

9 ISO  PRINT  INK  6;  PAPER  lJ “YOU  h 
avt  Joined  the  many  dtad/' 

91S0  PLOT  0,40;  DRAW  23S,0 

9170  PLOT  71,4*0;  DRAW  0,86 

9180  DRAW  70,0, -PI 

9190  DRAW  0,-88 

9200  PRINT  AT  lO, 11; ”R# X.P” 

9900  DATA  ”r>  evil  spirit  “ ,  ”  bio 
ated  beast  brainless  brute  ” 

/’  ghastly  about  deadly  dtvi 

l  mad  pirate  **,••  huge  horror 

*,  terrifying  troll  “ , “  facets 
ss  fiend  ’*,*n  orribie  ogre","." 


RrS  m 


9060  PR I 
I  didn't 


YOU  h 
think 


Jhat  you  gonna  do  no#? 
f  x  qht t \ \  _ 


Ex i is  a r e - 

North  East  South  Uest 
r  brainless  brute  blocks  your  pa 
th . 

Jhat  you  gonna  do  not*? 

Juip 


Cxi ts  are- 

R  ghastly  ghoul  blocks  your  path 
Cthst  you  gonna  do  not*? 


you  have  joined  the  aany  dead* 
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STOCK  MARKET 


Here's  yourchance  to  tackle  Wall  Street,  with  a  portfolio  of  stocks  in 
ten  companies  (including  IBM,  Shell.  Toshiba  and  Xerox). 

When  you  run  the  game,  you'll  see  three  columns.  The  first  Is  the 
share  value  (in  dolars).  the  second  the  number  of  shares  you  hold 
and  the  third  column  contains  the  names  of  the  companies,  alonq 
with  a  number  (the  number  is  used  to  refer  to  the  companies  when 
you  trade). 

You  start  the  game  with  $6000,  and  you  can  continue  as  long  ai 
your  money  and  stock  value  combined  are  above  $200.  After  the 
share  values  and  holdings  are  printed  out,  you'l  be  asked  tq 
nominate  a  Arm  in  which  you  wiah  to  trade.  The  prompt  is  Firm?  and 
to  this  you  reply  by  entering  the  number  which  refers  to  the 
company.  Next  the  prompt  Deals?  wil  appear.  Enter  a  positive 
number  if  you  wish  to  buy  that  number  of  shares,  a  negativi 
number  if  you  wish  to  sail.  Once  you've  traded  as  you  wish  on  the 
prices  you  sea.  enter  a  zero  for  the  Rrms?  prompt.  You'l  be  taxaq 
and  the  share  values  wiN  change.  Your  porttotio  total  value  wltfalM 
change,  of  course. 


If  you  wish  to  modify  this  program,  based  on  one  written  by  fiMj 
Turtle,  to  stop  when  you  reach  a  predetermined  value  (sol 
$10,000)  add:  185  IF  M  +  SV>  10000  THEN  STOP 


By  all  means  change  the  names  of  the  firms  (in  the  DATA  stale* 
merit,  line  380)  into  which  ever  names  you  choose. 


IB  REN  stock  Market 
IS  REN  Ian  Turtle 

17  PAPER  1;  CL5  :  INK  7:  BORDC 
R  1 

09  DIM  PC20):  DIM  SC  10) 

30  I  FT  M  *5000 
35  PRINT  BT  5,0; 

40  FOR  X«1  TO  10 
50  LET  PCXJ*2H'INT 
50  LET  5  CX>  *0  _ 

55  READ  A*:  PRINT  TAB  iX(lB)f3 

0,  x;  ”  *’;A* 

70  NEXT  x 

00  RANDOMIZE  _ _  ^  4 

100  PRINT  AT  1,1;  "Sbare'^TAE*  14 

;  "Mo  idi 09s  m;tab  1 ;  mvj  i we  ** :  print 

•  PRINT 

110  LET  SU*0 

120  FOR  X=1  TO  10 

130  PRINT  TAB  1;PCX>;‘*  "; TAB  14 

;  S  fX)  ;  •• 
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14.0  LET  SU<5U4P  <X)  *5  IX) 

160  NEXT  X 

160  print  '  *  ’"Monty  ; 

170  print  '  '  "Stocf  value;  r  ;SV 

.  m  •» 

' 160  IF  H+SIM200  THEN  STOP 
190  INPUT  "F*  T0?  ";A 
215  IF  A>  10  THEN  GO  TO  190 
220  IF  R&0  THEN  GO  TO  300 
230  input  "Deals?  ";D 
24.0  IF  H-D»P  CAJ  <0  THEN  GO  TO  23 
9 

250  IF  S(A)+D<0  THEN  GO  TO  230 
270  LET  M«M-D#P (A) 

200  LET  S(A)«SCA>+D 
290  GO  TO  00 
300  FOR  U=1  TO  3 
310  FOR  X*1  TO  10 

320  LET  P  t X ) mP CX)  +2 NT  CRND* 3> - J 
NT  <RND*3> ;  0EEP  . 000 , P (X) a CP (X) 
60) 

330  LET  H*INT  CH-Hy*00) 

34.0  IF  PCX)  <5  THEN  LET  P  CX)  =5 
360  NEXT  X 
300  NEXT  U 
370  GO  TO  00 

300  DATA  "Toshi ba", "She l i " , "IBM 
"  ,  "Exxon  "  ,  "RO  l  IS  R.  f*  *  "3P”  ,  "GV  l  /  " 
, "To  t  a l ” , "E 1 f " ,  MX« r ox " 


Share  Holdings 

va  lue 


20 

21 

1? 

20 


17 


0 

1 

TOihi b4 

2 

2 

She  1 i 

47 

3 

ZBH 

37 

4 

Exxon 

0 

5 

Rolls  R 

0 

S 

BP 

0 

7 

Gu  i  f 

0 

8 

To  ta  i 

20 

9 

Elf 

2 

10 

xerox 

Honey:  sai3o 


SlOCl  value;  $2463 
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Share  Holdings 

va  luc 


36 

32 

1 

Tosh i bt 

21 

2 

2 

She  1 1 

17 

49 

3 

IBM 

26 

37 

4 

Exxon 

21 

SO 

5 

ROUS  R 

29 

e 

6 

BP 

24 

6 

7 

BU  l  f 

23 

9 

a 

To  ta  i 

26 

2 

9 

ei  r 

17 

2 

19 

xerox 

Monty:  $064. 


StOCfc  Vtlut:  *3949 


Shtrt  Holdings 

vt  Lue 


S3 

32 

1 

TOiht ba 

29 

2 

2 

She  l  t 

17 

49 

3 

IBM 

22 

37 

4 

Exxon 

ia 

S9 

8 

ROUS  R 

38 

39 

a 

BP 

24 

6 

7 

gu  i  r 

34 

2 

8 

Total 

23 

2 

9 

El  f 

ia 

2 

19 

xerox 

Monty :  *o 

StOCfc  value;  *4157 
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ANAGRAMS 

In  this  anagram  program,  written  by  Paul  Toland,  the  computer  will 
choose  a  word  at  random  from  Ha  DATA  statements  (from  line  330) 
and  then  jumble  up  the  letters.  You  enter  the  tetters  in  another 
order,  and  little  arrows  wW  appear  under  the  letters  In  the  correct 
position  (the  little  arrow,  of  course,  comes  horn  the  H  key,  using  the 
red  SYMBOL  SHIFT  key).  You  have  a  Smiled  number  of  guesees 
(related  to  the  length  of  the  word).  Change  the  contents  of  the 
DATA  statements  when  you  know  all  the  words.  You’ll  find  the 
program  is  mors  effective  when  the  words  within  the  DATA  state¬ 
ments  bear  some  similarity  to  one  another  (such  as  FRIEND,  and 
FRIED). 


1  DIM  D* <25,10; 

2  FOR  1*1  TO  25 

3  RERD  Dp (I) 

4.  NEXT  I 

10  R&NDOtilZE 

20  PRINT  XNK  2;TR5  4;  "Pnegree* 

*\ 

39  LET  R-INT  (RND*25)  4-1 

40  LET  U*-"" 

50  IFRd{7r,I?>"  "  THEN  LET  M** 

W*70*Ne&f ,  I 

50  LET  L-LEN  U*  M  ,  __  4  „ 

00  LET  55-" _ ,  <  TO  L) 

100  TOR  1*1  TO  L 

110  LET  R-INT  <RND»L) ♦!  „ 

120  IF  35xR) "  THEM  CO  TO  110 
130  LET  Si(P)-U*(i; 

150  NEXT  I  _ 

150  PRINT  INK  7;  PRPER  1; "  Your 
amgrss  i*  ";5I;  H  H 
150  FOR  J-l  TO  0 
170  PRINT  U;  " 

150  INPUT  Of 
100  PRINT  G$ 

200  IF  OJ«UI«  THEN  GO  TO  250 
205  PRINT  " 

210  FOR  1*1  TO  LEN  G* 

215  IF  I>L  THEN  GO  TO  245 

220  IF  G*<X)*U*<X;  THEN  PRINT  I 

NK  d*  ikf  ft*  - 

230 4  IF  tl(I)oU»(I)  THEN  PRINT 

■  I  VS  a 

3±b  NEXT  I :  PRINT 
as®  NEXT  J 

as®  PRINT  INK  aj*'Tia«  is  up";TA 
3  3; "The  word  is 
270  GO  TO  200 

255  PRINT  INK  1;  FLRSH  l;"That' 
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a« 


*  i  t !  J  M 

285  XF  INKEY*  <  > 


T HEN  90  TO  20 


290  PRINT  FLRSH  li  INK  2; "Would 

Sos  •  the 

**300  XF  THEN  STOP 

910  RESTORE 
320  RUN 

330  DRTfi  "fiend"  friend”  ,”f  rim 
d'V'tri  f  l*"  ,Mtri  f  led" 

3*0  JMTR  "ordinary",  "Pi  ryr la" , " 
bi foci t “* “batvaan"* "scqutl " 

3SO  PflTfl  ,,p»r»dis«,,,MparMoi"," 
p»fWn"iMintiqof*'^  “ar ti  c  la"  _  „ 


parwnMiM«ntiqot"#  “ar ti  c  la"  „ 
360  ORTR  "saf*d«iCf*“,"*ava9*'*,"S 
at  is  ryM,  "s  tort  on" 

370  ORTR  Hp*ftridfl«"/tPirdon,*/ 
Pirticlc11!  "parson  a  I"  ,  "prac  ti  cer' 


Rnagraas 

Your  anagra*  is  inf dm 
X  t i dan 

2  rind* 

♦t 

3  f  ifcrf 
ttt 

4.  r*n«u 

t*  * 

s  ritnd 

That 'S  it!! 

would  you  lik«  to  try  again? 
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NOUGHTS  AND 
CROSSES 


This  version  of  the  well-known  game,  written  by  Ian  Turtle  and  Tim 
Hartnell,  makes  good  use  of  the  Spectrum's  sound  and  cotour.  Al 
you  need  to  know  to  place  this  is  that  you  enter  the  number  of  the 
position  where  you  wish  to  move.  You  are  the  noughts,  the  Spec¬ 
trum  is  the  crosses.  The  computer  decides  (line  30)  whether  It,  or 
you,  will  have  first  move. 


10  REM  Noughts  and  Crosse* 

15  REM  Ian  Turtle st  Hartnett 
30  DIM  R(9):  DIM  0(9) 

30  IF  RND  >  « 5  THEN  CO  TO  110 
4.0  CO  SUO  700 
50  GO  SUB  900 

00  BEEP  .03^0:  INPUT  INK  9;  Pft 
PER  RND #7;  "Enter  your  it;vt  "i*-* 

©0  IF  M < 1  OR  M>9  OR  R  <H>  i >9  TH 
EN  GO  TO  ©0 
100  LET  R (M) *1 
110  GO  SUB  900 
120  GO  SUB  700 
130  GO  SUB  500 

lt%  BEEP 1 7000? RND *50:  GO  SUB  00 

^100  IF  Z--3  THEN  GO  TO  34.0 
170  NEXT  I 
100  GO  SUB  600 
190  FOR  1-1  TO  0 
200  GO  SUB  000 
210  IF  Z=2  THEN  GO  TO  3*0 
220  NEXT  I 
230  FOR  Isi  TO  10 
24.0  LET  P=2*INT  iRND*4*)  *1 
300  IF  fifP)  <>0  THEN  GO  TO  24*0 
310  LET  fl (P) s-1 
320  GO  0UB  900 
330  GO  TO  *0 
34.0  FOR  1  =  1  TO  3 
350  LET  U=B(IJ 

360  IF  R i VO  =0  THEN  LET  R fU> «-i 
370  NEXT  I 
300  GO  TO  320 

600  LET  R$  =  ”14> 72503591234-567091 
59357” 

610  RETURN 
700  GO  SUB  600 
710  FOR  1=1  TO  © 

720  GO  SUB  600 

730  IF  Z=3  THEN  PRINT  RT  15 ,3; 
FLRSH  1;  INK  2;  "You  winiM”.  STD 
P 
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740  IF  Z--3  THEN  PRINT  AT  15,3; 
FLASH  1;  INK  a;  "I  Vlf)!  !  !H:  STOP 

7S0  NEXT  I 

760  FOR  Z-l  TO  O  _ 

770  ir  A tZ> -0  THEN  RETURN 
700  NEXT  Z 

790  PRINT  AT  10,3;  FLASH  1;  INK 
a; "It’S  a  drt«!!!":  STOP 
000  LET  Z=® 

010  TOR  J*1  TO  3 

020  LET  D  ( J)  =UAL  (£0  (U  J 

030  LET  A*~A*f2  TO  > 

04.0  LET  U«0fU) 

0S0  LET  Z-Z+A(U» 

060  NEXT  U 
070  RETURN 

900  PRINT  RT  4, 2;  INK  9;  PAPER 
RND*7;  ’’Spec  tf  ui  Noughts  and  Cros 
ses**;  RT  S,6; 

930  FOR  2=1  TO  9 

940  IF  RiZ)=l  THEN  PRINT  INUERS 
E  1;  INK  2;  "  O  ”j:  0EEP  ,02,-1® 
960  IF  A  fZ3  =  -1  THEN  PRINT  INUE.R 
SE  1,  INK  1,-  X  BEEP  ,®2,2® 

960  IF  A<z5-0  THEN  PRINT  INUERS 
E  1;  INK  4;  M  *,;Z;,,  :  BEEP  ,02, 

5® 

97©  IF  INT  fZ^3>*3=Z  THEN  PRINT 
:  PRINT  .  PRINT  TAB  6; 

98®  NEXT  Z 
990  RETURN 


Spcctruft  Noughts  and  crosses 


O  2  X 
4X6 
X  O  Q 


i  «  i  n  »  *  » 
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BOMB  RUN 

In  this  version  of  CITY  BOMBER,  written  by  Peter  Shaw,  you  pilot  a 
rather  elderly  biplane  over  the  city,  doing  your  best  to  demolish  the 
skyscrapers  which  lie  in  your  path.  You  drop  a  bomb  by  pressing 
the  key.  The  plane  is  graphic  H  and  graphic  B,  the  bomb  is 
graphic  C,  the  top  of  the  building  is  graphic  D  and  the  main  body  of 
the  building  is  graphic  E. 


1C  ED.r?  RUN 

20  REM  PSTrP 


30 

4.0 

S0 

00 

70 


N  GO 

100 


CL  3 

GO  SUB  ©000 
GO  SUB  6000 
FOP  TO  SO 

FOR  0-0  TO  31 
PRINT  RT  R  /  5  ,, 
IF  SCREENS  <R 
TO  270 

IF  lHKEr$s”W‘ 


i.  \*r.  •- 

I  I-JJCN 


*■  * 


^LJ 


"  THE 

sue  l 


50 

110  FOR  P-1  TO  3  P 

120  NEXT  E  :  ME.'*. T  P 

130  PRINT  AT  10,10.  FLfiSH  1,  BR 
I3HT  1 ,  M 3PFE  LffNDIneM;flT  15,6;  "Y 
jU  SCORED  FULL  HRRK5'* 

14.0  INPUT  BRIGHT  1;  FLhSH  lj  IN 
vERSE  1 ;  ”PRt  3  E  “  .  INVERSE  0:  “EMT 
;H";  inuersl  i;  *  rc  Plw/  .hGHIn 
LINE  R  $ ;  RUN 
ISO  STD® 

ISO  *l=r*3 

170  FOR  X*R+1  TO  20 

130  PRI^rr  RT  X  - 1  .  B 1  ;  ”  ' 

1W0  PRINT  RT  X,Ei;  INK  2,”*” 

200  LET  B=B+1 

21©  IF  B.’31  THEN  LET  n-  =  rl.  LET 


3  =0 
220 
EN$ 
230 
210 
2S0 
26© 
270 
*■1;  ** 


IGHT 

E  1 : 

300 

6000 

6010 

TNT 


PRINT  RT  R  .  B  ;  ”  »"  .  IF  SCRE 
(R.B+3>  :->“  *'  THEN  GO  TO  270 

BEEP  *  006  ,  -  i  X  -2  0  ,i 
NEXT  X 

PRINT  RT  "  M 

RETURN 

FOR  C«R  TO  10.  PRINT  ftT  C,B 
RT  C  +  1,6  +  1;  1  w 
BEEP  *  1,  -  (C-hS?  :  NEXT  C 
PRI?r7  RT  10,11;  FLR3H  l:  OR 
1 ;  “CRRSHED^;  RT  15,S>  INUERS 
•'YOU  SCORED  ’  ;  VS 

GO  TO  14.0 
FOR  K«0  TO  31 

LET  R  — INT  tRND*6>+2.  LET  «J  = 
f RND-3H0.I  tie 


*020  PRINT  RT  U,r.;  INK  R;  ’  ±" 
3030  FOR  JbJ+1  TO  20 
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304-0  PRINT  PT  U 
3050  NEXT  U  :r£;<^  }* 

SOf-O  Ft,  C-T  0,7'.  D-RPA;  £‘5“£  .  ?.CTt-rR 

rj 

3000  BORPER  O  PwPEw  O  IMK  T  C 
i_5 

9010  FOR  -U  =U5R  J3"  TO  USR  ’“e"^ 
3020  REhD  USER,  ?:K£  v . USER 
3030  NEXT  U;  RETURN 

3OU-0  DRTR  199,225,24-2  ,25B  ,  127,&^ 
.64,0 

3050  r-RTfl  252,32,65.25*1,5*5.  =  53. 
3* ..  O 

3060  DAT  R  0,36,BO,24-,cB,60.24.,P 

307*0  r  0  —  -3:3  •“—  *  \=  “7  i  o 

9080  DATA  127.73,73,127. 127,73.7 
2 . 1ST 


CPLRME'*  -  &Rr*H HIV  HO 

S  f BOMB 3  -  GRAPHIC  C 
A  4TOP  OF  BUILPI3’«?3  -  GRAPHIC  I> 
3  fBUXi-DXHGJ  -  GRAPHIC  JE 


TOO 


DRIVER 


DRIVER  puts  you  behind  the  wheel,  amid  the  screech  of  brakes 
and  the  smell  of  burning  rubber.  Written  by  Chris  Callender  and 
modified  by  Peter  Shaw,  this  game  is  a  real  challenge  to  play.  We 
won't  make  it  easy  for  you,  and  tell  you  how  to  win  this  one.  That’s 
for  you  to  workout  The  prompts  are  dear,  and  it  is  up  to  you  to  work 
out  the  best  values  to  enter. 


10  REM  DRIVER 
20  REM  CHRIS  CRLl^ENDER 
PETER  SHRU 

30  LET  pm0:  LET  r  *0.  LET  S*0; 
LET  X *0 ;  LET  y=0:  LET  g  *0 

4.0  BORDER  5:  PRPER  6.  BRIGHT  1 
INK  0;  CLS 

50  FOP  3-0  TO  SI;  PRINT  TAB  a  ♦ 
2}  INK  (»/♦);  '‘ORIVER"  :  NEXT  a 
50  FOR  a-1  TO  50.  BEEP  1000^9. 
BEEP  .0BB, -S :  NEXT  3;  CLS 
70  FOR  i =1  TO  30 
00  LET  »  =  TNT  (20  +  <RND*1201 > 

90  PRINT  "Part  " ; i ; "  Max  INT 


m 

100 


INT 

110 

120 

130 

14-0 


gl  >5 
150 
150 
170 
180 
190 
200 
210 


230 

24.0 

250 

260 

gear 

270 

275 


LS  : 
20: 
T  a 
300 
310 
320 
330 
LS  : 


PRINT  "Pos  ” ;  INT  Pi"  Rvge  ** 
(X/i  3 
PRINT 

PRINT  “Gear  “ ; 

INPUT  gl 

IF  RBS  fgl-gj >1  OR  9l<l  OR 
THEN  GO  TO  120 
LET  o«oi:  PRINT  g 
PRINT  ^RC  cei  ■; 

INPUT  3:  PRINT  a 

IF  a  <1  THEN  GO  TO  160 

PRINT  "BraJie 

INPUT  b.  PRINT  b 

IF  b<0  OR  b>2  THEN  GO  TO  20 

LET  bab+1 
CLS 

LET  Ssf /(b  +  l)+9«  J2 
IF  S/g>7  THEN  GO  TO  2B0 
PRINT  “STRLLED 1 ! -Sft lect  1st 

i  ► 

LET  s  -=0 :  LET  r*0.  LET  9*0 
GO  TO  110 

IF  S<M*M/3  THEN  GO  TO  310 
BORDER  0;  INK  7:  PRPER  0:  C 
PRINT  “Crashed”:  FOR  a*l  TO 
BEEP  . 1 , a :  BEEP  . 05 , -a :  HEX 


STOP 

LET  rsr/4+a#2000/9  _ 
IF  r  <6500  THEN  GO  TO  350 
BORDER  0;  INK  7:  PRPER  0 
PRINT  “Engine  blew":  FOR 
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10  TO  1  STCP  -1:  MEP  -1,*;  MEF 
• 05 , —  a :  NEXT  a 
34.0  STOP 
3S0  LET  ,x  +£■ 

360  LET  y  +» 

370  LET  J  -X 

380  IF  JV0  THEN  LET  Js0 

300  LET  p a C J -140  /13fl 
4.00  PRINT  "Gear  •*;  INT  g 
4.10  PRINT  "flC  Cfi  L  INT  a 
420  PRINT  MTacho  ‘*;int  r 
4.30  PRINT  '  Speed  " ;  INT  s 
4.4.0  PRINT  "Dist  " ;  INT  ( y  > 

4.80  PRINT  j  NEXT  i 
4.60  CLS 

4.70  PRINT  “Race  over*' 

4.80  PRINT  'Final  place  *  ;INT  p 

4.00  print  "Rverage  fpeed  was 

INT  fX/30J 
500  STOP 
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SPECTRAL  BOUNCER 

Roy  Basic's  version  of  the  popular  computer  game  BREAKOUT 
runs  very  quickly  indeed. 

To  add  variety  from  game  to  game,  the  bricks  are  randomly,  and 
are  in  randomly -chosen  colours.  Each  colour  affects  the  ball  in  a 
different  way.  making  the  game  more  challenging.  Full  instructions 
are  within  the  program. 


1®  LET  hs-0  _  « 

IB  RESTORE  :  PAPER  7:  BORDER  5 
INK  0:  CL5  _ 

£0  PRINT  PAPER  6; RT  2,B;'Spect 
r * l  Boun C«  r . " *  ’ 

3®  PLOT  64-,.  IS®:  DRAW  137,0 
4-®  LET  at*4'  The  gate  Bouncer 
is  similar  to  Breakout,  you  cc 
ntrol  the  batand  try  to  knock  4c 
«n  the  various  coloured  br 

’ cks  *  The  bricks  have  differ* 
r»  t  effects  onthe  bricks  accordir 

9  to  thair  colour.1  _ _ 

6®  POP  n*  1  TO  LEN  4|;  PRINT  4k 
• n ) ; ;  PAUSE  1;  NEXT  n 

6®  PRINT  *  'TAB  10;  “Z-te  f  t‘wTRB 
1®;  "H-right  “ 

7®  INPUT  *'Ent«r  -jptad  1 1  -f  as  t  ^  3 

-s  low )  ;  t 

0®  INPUT  "Press  enter  whan  rea 


J  y  4| 

1®6  DATA  256..  12®  .  122..  12®,  12®.*  12 
- , 129 . 255 

" 11®  TOR  n»325©0  TO  32507:  READ 
s :  POKE  n , a :  NEXT  n 
12®  CLS 

is®  print  j  1 1 1 1 1 1  p  i  ii  m  1 1  i  rrr 

1  vlv  TO  6  FOR  V*1  TO  V 

POKE  22527 f-K  *6 

150  IE  X#6*V»32  THEN  OO  TO  17© 
15®  NEXT  y  NEXT  x 
17®  TOR  n*i  TO  5® 

IB®  LET  X*INT  (RND  *26  4-2)  :  LET  y 


=  I  NT  (RND  #15 +2)  _ 

10®  IF  ATTR  ty4x)  <>55  THEN  GO  T 
O  180 


§0®  PRINT  PAPER 
NEXT  n 

lt»  LET  b*10:  L 
-11:  LET  Kl«K:  L 


RND*5  +  lj  AT 


INT  (RND#B> 
1~> :  LET  V  -  ' 


1:  LET  h  =1 :  LET  5«0 
22®  PRINT  AT  2©,®; 
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5core* 


230  PRINT  "BLOco 
cor« »  w;hsi" 

250  GO  SUE  300 
260  LET  b*  lO :  LET 
•  17  :  LET  V  * - 1.  LC 
270  GO  600  600 
200  I r  S  >hS  THEN 
T  FLASH  1; AT  0,0; 


H  'ir 


K^Klfl 

h*-l 


LET 

New 


hS  si 
h  i  gh 


LET 


PRIN 
s  cor* 


290  FOR  r>*0  TO  lOOO:  NEXT  ft:  GO¬ 
TO  16 

OOO  PRINT  AT  */9,b;’‘ 

810  LET  b-bf  (ZHKEVf>'>iu  AND  b<2 
7J  #2-2*  (  INKEY  0b'4ih  RND  b  >0) 

820  PRINT  AT  19,  bi 
830  PRINT  AT  u,x;  t%  LET  XcXfh 
1  _LET  9  »v  ;  LET  g  =ATTR  (yk.  x):  P 
PINT  AT  v>x;"0":  IF  g-56  THEN  GO 
TO  90® 

840  LET  9  =  INT  is 

850  LET  s«s  +  (7-gi  *5+5*(y=0)  *(?- 

9> 

660  GO  SUE  889+3 
670  PRINT  AT  21,9;  s 
660  GO  TO  910 

690  LET  v « - 1 :  RETURN 

691  LET  h*-l:  RETURN 

892  LET  v=l:  RETURN 

893  LET  K*l;  RETURN 
694  LET  h*-h.  RETURN 
895  LET  v ■ -v :  RETURN 

900  IF  X  »0  OR  x*31  THEN  LET  h* - 


}*>b;  '• 
INKEYf 
i “  Z  "  A 


RND  b  < 
>0) 


910  IF  9*0  THEN  LET  v*l 
920  IF  9*18  AND  x-bv-i  AND  x -b 
4  THEN  LET  v*-l 
930  FOR  n*0  TO  3*t  :  NEXT  n 
940  IF  U*  19  THEN  RETURN 
950  GO  TO  600 
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BOMBER 


Hem's  your  chance  to  fly  a  bomber,  using  the  sophisticated  com¬ 
puter  console  of  the  Spectrum.  The  keys  U,  0.  S  and  W  are  your 
controls,  and  they  do  the  following; 

U- Moves  you  up 
D- Moves  you  down 
C -Changes  directions 
S-Speed  up 
W-Slow  down 

They  have  to  be  following  by  a  number  which  represents  the 
change  you  want.  For  example,  U90  wilt  make  the  bomber  rise  by 
90  feet.  Landing  for  the  first  time  can  be  an  exceedingly  tricky 
business.  BOMBER  was  written  by  Chris  Callender  and  modified 
by  Peter  Shaw. 


10  REM  BOMBER 
20  REM  CHRIS  CALLENDER 
PETER  SHAW 

30  CO  SUB  500  ^  ^ , 

4.0  LET  h=0;  LET  dl=0:  LET  d  f  =1 
LET  s=0.  LET  bf ■» 

50  PRINT  "Speed  "js.  PRINT 

iN8Sf%iW&8  §?Dri:^HT2f"s?8£tnu 

ARMING" :  PRINT 

70  PRINT  "Height  ";INT  (10#h)S 

10 

75  print  '"Distance  fro*  base 
INT  ri0*di)  /I© 

80  PRINT  *  "You  are  facing 
90  IF  df»l  THEN  PRINT  "away  fr 
om  i>ese" 

100  ir  d  f  =-l  THEN  PRINT  "tOdarcf 

£ 


110  PRINT 

120  print  "The  control  Keys  for 

your  bosbersre:  -** 

130  PRINT  "'S-speed  up: U-s low  d 
own:  u-up : D-dO wn : C-Chang 

e  direction" 

14.0  input  "vour  choice,  and  a*o 
jnt  *;d$ 

ISO  IF  LEN  d$>l  THEN  LET  d  *UPL 
d*  12  TO  y  :  LET  d**dp(lJ 

170  PRINT  INK  4>  M _ 

■  ■ 


TMT  IF  di-^s  *  AND  d  < *100  AND  s  < 
*500  THEN  LET  £  *S +d 
190  IF  c«4E*a,W"  AND  S  >0  THEN  LET 
3  *S  -d 

200  IF  d*  =  "d"  AND  h  >0  THEN  LET 
**h-d;  LET  S*S+INT  (RND#  (ds3)> 
210  IF  d**"W‘  AND  h  <  *100  AND  d< 
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-200  THEN  LET  h  *h  +  d  ;  LET  S  *3  -INT 
(RNDJ  (d/2)  ) 

220  IF  d*=-C”  THEN  LET  dfs-df 
230  IF  h>0  AND  £<50  THEN  GO  TO 

1000 

24.0  IF  dl>3  AND  h=0  THEN  GO  TO 

^000 

250  IF  dl <3  AND  h  =0  AND  £ =0  AND 
d 1 > -3  THEN  GO  TO  3000 
200  IF  dl>30  AND  bf  *0  THEN  GO  3 
SJB  4.000  _ 

270  LET  dlsdlM»»l/60(idr.)  ;  GO  T 
3  50 

500  BORDER  0;  PAPER  8;  INK  0;  C 
L5 

S10  LET  d<0 

S15  LET  t -INT  (RND»10) <1 

52©  FOR  «»1  TO  t;  READ  2$:  NEXT 

a 

990  RETURN 

1000  PRINT  INK  2;  FLASH  1; “YOU  5 
TflLLED" 

1010  GO  TO  8000 

2000  PRINT  INK  2;  FLASH  1; “YOU  M 
IS SEC  THE  RUNWAY* ” 

2010  GO  TO  8000 

3000  PRINT  "YOU  hdV*  IdOded," 
3010  PRINT  “You  hit  the  w 

ail  done";  go  to  8000 

1008  print  “You  are  over  the  tar 

oet  no*  !.«  .»? . PRESS  'B'  TO  DROP 

"YOUR  BOMB- 

4.010  LET  bi-INKEYf :  IF  XNKEY9* 
THEN  GO  TO  4.010 

4.020  FOR  Z«30  TO  15  STEP  -1:  BEE 
P  • 05/ Z :  NEXT  Z 

4030  LET  taINT  <RND*10)  :  LET  bf- 
1 

4040  LET  XaINT  (RNDfB? :  IF  X =0  T 
HEN  PRINT  INK  2;  FLASH  1; “YOU  HA 
UE  UUST  BEEN  DESTROYED  BY 
ANTI  AIRCRAFT  FIRE  "  .  GO 

TO  8000 
4050  RESTORE 

4080  FOR  3*1  TO  t.  READ  Z%:  NEXT 


a 

4070  PRINT  ’You  Hit  the  "}Z%.", 
now  return  to  base?- 
4080  RETURN 

4890  DRTA  “Gas  wo r xs - , ”r unvay " > " 
aircraft  hangers"^ "house" 

4100  DATA  -power  station” >  — water 
tanksl>/‘aain  r  oad  " -shops  -  ,  “bio 
c  ps  o/  fiats - 

3000  input  -Another  gase?";  94 
3010  IF  gf tl) ="y"  THEN  PUN 
3020  STOP 
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speed  ee 

Height  10 

distance  from  base  -1.4. 

you  are  racing  towards  base 

The  control  legs  for  your  bomber 
are:  - 

3-Speed  Up:U-SlO*  down: 

li-up  :  D-down  :  C-change  direction 

YOU  STALLED 
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MANTRAP 


The  fiendish  Spectrum  is  creating  blobs  to  trap  you.  Your  score  is 
related  to  how  tong  you  manage  to  keep  from  being  caught  In  a  blob 
trap,  with  one  each  side  of  you  so  you  cannot  move.  You  only  score 
when  you  are  moving,  so  sitting  in  the  middle  will  achieve  nothing. 
Full  instructions  are  included  within  the  program.  To  make  it  more 
colourful,  change  line  240  to: 

PRINT  INK  RND*6  1;  AT  x  -  c,  y  d;  "a" 

MANTRAP  was  written  by  Graham  Charlton. 


10  border  a ;  pnPER  a 

20  go  sue  see 


INK 


PRINT  ;  x 

NK  0;  "  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

+  +  INK  ed 


10:  LET  Xcie.  LET  l4  =13 
PRINT  FLPSM  1 ;  RT  ,  y  , 

PRINT  RT  31 , ie, "SCORE  0 

*  ■ 

90  INPUT  "LEUEL?  il  -HIGHEST " 

,  l 

100  FOR  t  =1  TO  t 

110  LET  aS-INKEYS 

120  IF  30="*"  THEN  GO  TO  30 

130  LET  c» 

14-0  LET  ds(ai«"h,M-i*S="9'  ■>  _ 

1S0  IF  SCPEEMS  Cx  +C  *r  -•  "♦  T 

HEN  GO  TO  200  „ 

i©0  print  ink  rno*7;RT  a .  y  ;■  + 

170  LET  LET  LET  3 

=g +RTTR  CX^yJ 
130  PRINT  hT  21/13,9 
190  PRINT  FLRSH  1 ;  RT  :i  "O" 

200  NEXT  t 

210  LET  2  — INT  fRN0»4.> 

220  LET  C  ■  tz  «0)  -  fZ  ■!.* 

230  LET  d*  fl«2J  -  iz  *3.» 

24.0  PRINT  RT 

250  GO  TO  100  _  „ 

260  PRINT  "RUOID  THE  O'  EEIWG 
tpaPPCD  gy n +  -r 

270  PRINT  "USING  THE  FOLLOWING 
%EYS 

2S0  PRINT 
290  PRINT 

300  PRINT  "'9'  -  LEFT" 

310  PRINT  "  *  h  '  -  RIGHT' 

320  PRINT  "YOU  ONLY  SCORE  WHEN 
lOUlNG  TO"'  " 


**  '  u  '  -  UP" 

"'b'  -  DOWN" 


330  PRINT  "A  POS IT ION  WITH  A  ' * 
.  VOU  SCORE"  ■*  " 

34.0  PRINT  "POINT*  RELATIVE  TO  T 

COLOUR" ' ' 

3SO  PRINT  "WHEN  VOU  0ECOHE  TRAP 
*EQ  PRESS" ' ' 

300  PRINT  "  s  TO  RESTART"  r 
370  INPUT  "PRESS  ENTER  WHEN  ASA 
jV  ”,  LINE  at  _ 

300  BORDER  0:  PRPER  0:  INK  0.*  C 

"l’50  RETURN 


UTILITY  PROGRAMS 
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DECISION-MAKER 

It  the  effort  of  making  decisions  is  proving  too  much  for  you, 
DECISION-MAKER  will  prove  a  real  boon,  ft  should  act  as  an 
genuine  aid  in  making  balanced  decisions.  Here's  a  sample  of  how 
it  works.  From  this  sample  run,  you’ll  see  how  to  use  the  program 
for  your  own  decisions.  DECISION-MAKER  was  written  by  Chris 
Callender,  and  modified  by  Peter  Shaw.  The  sample  run  shows  the 
program  being  used  to  help  decide  on  a  pet. 

NUMBER  OF  OPTIONS?  3 

NUMBER  OF  IMPORTANT  FACTORS?  3 

DECISION  MAKER  II 

INPUT  NAME  OF  OPTION  1 

PIG 

INPUT  NAME  OF  OPTION  2 
SWAN 

INPUT  NAME  OF  OPTION  3 
HAMSTER 

DECISION  MAKER  II 
INPUT  NAME  OF  FACTOR  1 
COST 

INPUT  NAME  OF  FACTOR  2 
AFFECTION 

INPUT  NAME  OF  FACTOR  3 
COLOUR 

DECISION  MAKER  II 

HOW  WOULD  YOU  RATE  COST  ON  THE  PIG? 

HOW  WOULD  YOU  RATE  COST  ON  THE  SWAN? 

100 
. .  .etc 

HOW  WOULD  YOU  RATE  AFFECTION  ON  THE  PIG? 

99 

..  etc 

THANKS. .  HERE  IS  WHAT  I  THINK 
PIG  326 
SWAN  293 
HAMSTER  162 
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i 

f 


i 


/  CDS  .  O 

option*  ?" 
i ftpor t an  t 


.01, A 
of  option 


1  POKE  2369S  t25? 

10  REM  DECISION  MAKER  IX 
20  REM  CHRIS  CALLENDER 

30  REM  PETER  SHAU 

4.0  BORDER  1:  PAPER  1:  BRIGHT 

INK  3;  CLS  :  POKE 

D  SUB  ©000 

SB  PRINT  "NuaBer  of 
; :  GO  SU8  9000 
60  LET  Z sVflL  BS 
70  PRINT  “Nuiber  of 
factors  7”; 

60  GO  SUB  9000 
90  LET  FmUAL  B$ 

100  DIM  Z9 fZ/32) 

110  DIM  F*rF,32J 
120  CLS 

130  GO  SUB  8000 
140  FOR  flsl  TO  Z: 

130  PRINT  'input  n 

,f;  A 

160  GO  SUB  9000 
170  LET  Z#fA> 

160  NEXT  A 
190  CLS 
200  GO  SUB 
210  FOR  A  ml  TO  F.  BEEP  .01, A 
220  PRINT  "input  nave  of  factor 
•;  A 

230  GO  SUB  9000 
240  LET  F*  f  A.l  «B$ 

230  NEXT  A 

260  DIM  M(Z,F>.  CLS 

270  GO  SUB  B000 

280  FOR  Ami  TO  Z:  BEEP  .01, A;  F 
OR  B  ml  TO  F.  BEEP  .01,B 
290  CLS  :  GO  SUB  8000 
300  print  "How  would  you  rat t 
Ff» 

310  print  "on  the  ";Z*(AJ» 

320  GO  SUB  9000 

330  LET  MfAsBJ»=UAL  BS 

340  NEXT  B 

350  NEXT  A 

360  CLS 

370  GO  5UB  8000 

380  PRINT  “ThanXi # ,,Here vhdt 
T  thin*" 

390  FOR  A=1  TO  Z,  BEEP  .01.,  A 
400  LET  C=0 

410  FOP  B ml  TO  F;  BEEP  .01,0 
420  LET  C*C+M f  A,  0.) 

430  NEXT  0 

440  PRINT  Z% f Ai ; C 

450  NEXT  A:  FOR  A=1  TO  50:  BEEP 
.008, A:  BEEP  .008, -A:  NEXT  A 
460  RRINT  "Another  run 
470  GO  3UB  9000 
480  CLS 

490  IF  BSClJ="y"  THEN  RUN 
500  STOP 
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3000  PRINT  TAB  5; "DECISION  MAKER 
II** 

gg^fc  PRINT  TAB  5; 


S02B  RETURN 

9000  POKE  23009,50 

9010  LET  B*«"“ 

9020  PAUSE  0 
9030  LET  R$=INKEYf 
9040  IF  A*«CHR*  13 

9050  PRINT  ft*.; 

9000  LET  £$=BS+A* 
2070  90  TO  9020 
9000  PRINT 
9090  RETURN 


THEN  GO  TO  90 
BEEP  -  01 j 20 
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BILLBOARD 


Derek  Cook's  program  BILLBOARD  allows  you  to  magnify  a 
message  from  two  to  seven  times.  You  can  get  16  letters  into  your 
message  if  it  is  enlarged  to  double  its  original  size,  10  tor  triple 
enlargment,  eight  for  four  times  larger,  six  tor  five  times,  five  tor  six 
times  and  just  tour  if  you  want  each  letter  printed  at  seven  times  its 
original  size. 

30  REM  "$  D-L.COO*  1962' 

4*0  FLR9H  0.  CL 9  ;  BORDER  1;  JN 

\4  0 

50  print  "This  program  wilt  »a 
gni  fy  a  message  from  2  to  7 

tames -The  maximum  number  of  ch 

aracters  in  the  message  is: 

Hx  -  19 

3x  -  10 

4-X  -  © 

5X  —  5 

©X  -  9 

7X  -  4." 

80  FLR9H  0  4  PRINT  :  PRINT  MEnt 
£ r  number  of  characters" 

85  INPLIT  n  ch 

8©  INK  2;  PRINT  RT  lly27;f)Ch 
©7  INK  0:  PRINT  ;  PRINT  ‘‘Enttr 

message  ■* 

90  INPUT  a§ 

91  INK  2:  PRINT  RT  13,14; d$ 

92  INK  0;  PRINT  :  PRINT  Tnter 

magnification  2-7" 

96  INPUT  n 

9©  INK  2:  PRINT  RT  15,24; n 

97  PRU9E  100:  CLS 

100  INK  0:  FLRSH  1:  PRINT  RT  0, 

0;  as 

110  FOR  X*0  TO  nch*s-l 

120  FOR  y *175  TO  168  9TEP  ~I 

129  LET  Z  *175-y 

130  IF  POINT  rx,y)*l  THEN  GO  5U 
8  800 

14*0  NEXT  y 
150  NEXT  X 

160  INK  1:  PRINT  RT  20,5;44Rnoth 
er  message*?  y^r>‘‘ 

170  INPUT  b» 

180  IF  b**“ya‘  THEN  RUN 
190  9TOP 

200  FOR  C*0  TO  n -1 
206  FOR  d-0  TO  n-1 

210  INK  n-1:  PLOT  n*X*c  ,175-  (60 
+d+z#n) 

220  NEXT  d 
230  NEXT  c 
24*9  RETURN 
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SUPER  SKETCH 

This  flexible  program  from  Gwyn  Dewey  shows  you  just  how  much 
you  can  do  wth  your  Spectrum.  The  program  helps  you  to  draw 
pictures  in  colour 

The  program  is  menu-driven,  and  there  is  a  wide  range  of  options: 
(9  -  6  -  colour  control 

Q,  W.  E,  A,  D,  Z,  X,  C  -  control  the  direction  of  the  line 

6 -erases 

B  -  controls  brilliance 

o  -  (the  small  letter  o)  cancels 

9  -  sends  a  copy  of  the  screen  to  the  ZX  printer 

V  -  exit  from  the  program 

K  -  saves  picture  on  tape  (J  loads  a  picture  from  tape) 

Full  instructions  are  within  the  program. 

10  let  a-iee 

is  LET  aa*0 

am  let  i»iee 

30  LET  C  s0 
38  LET  d«S 
33  LET  1*0 
35  CLS 

4.0  PR xnt  "super  Sketch" 

50  REM  author  G.Devey 
50  PRINT  .*  PRINT  "This  pfOgrSM 
helps  you  to  draw  pictures  ujj 
ng  the  /oi lowing  isys-NOTE.on 
ly  one  colour  is  allowed  in  a 
ng  one  square" 

70  print  # "0-6  colour  control" 
60  PRINT  ,U,E,R,D,Z,X,C  DRR 

U" 

00  PRINT  ' "B  erases  o  cancels" 
100  PRINT  ' "B  controls  briiijin 

ct” 

110  PRihrr  '"©  sends  a  ropy  ol  s 
he  screen  to  the  zx  printer" 

180  PRINT  '"V  exits" 

130  przht  ' "H  saves  picture (d  l 
oadi  pi cturei " 

14.0  IF  IMKE'/fs" "  THEN  GO  TO  14.0 

150  CLS 

151  POKE  83558,0 

154.  INUERSff  0/  PLOT  S,b 
155  INVERSE  aa ;  PLOT  a  ,  b 
1SS  LET  b$~INK£Y$ 

157  IF  b<aM-  THEN  GO 
160  LET  a~a-fb9*"q" 

R  bfa'  Z”)  ♦  Cb0*"e"  OR 
e«"c+*j 


TO  15* 
OR 

b* 


O 

•*dM  OR  b 
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170  LET  bsb-f JK0=*\7”  OR  O 

P  b*="C")  >  tblra*^'*  OR  b0«"b**'  OR  b 
$  =  "*  ") 

210  IF  b$>a"0'*  AND  b$<s*+7"  THEN 
INK  fVPL  b$J 

215  IF  b$  =  4,S"  THEN  LET  33=1 

216  IF  bS=”0 "  THEN  LET  3  3=0 
220  IF  b*  =  ‘ab”  PND  d=0  THEN  LET 

d«l 

230  IF  bfCb"  PND  d=l  THEN  LET 
d=0 

24.0  BRIGHT  d 
230  IF  b$=a*9a'  THEN  COPY 
260  IF  b$  =  "V**  THEN  GO  TO  9100 
270  IF  b$  =  "K**  THEN  SPUE  "piclvr 
€  '  SCREEN f 

283  IF  b$  =  ”Jaa  THEN  LORD  "piCtUT 
e”SCREEN$ 

290  GO  TO  154. 
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CALENDAR 

Graham  Charlton's  CALENDAR  program  allows  you  to  print  out  a 
calendar  of  the  month  of  your  choice  -or  even  a  whole  year.  When 
you  run  the  program,  youll  be  asked  to  enter  the  year  you  want, 
then  the  number  of  the  month.  You  enter  a  zero  In  response  to  this 
prompt  if  you  want  the  whole  year  printed  out.  The  program  in  its 
present  form  simply  dumps  the  calendar  to  the  ZX  Printer,  but  can 
be  modified  (by  changing  ail  the  L  PRINTS  from  line  250  to  400  into 
PRINTS).  Note  that  there  are  two  apostrophes  (available  with  the 
SYMBOL  SHIFT  key  from  the  seven  key)  in  line  400. 


10  LET  lii"  JANUARY  FEBRUARY 
MfiRCH  RPR  IL  NRY  <JU  Nr 

JULY  RUGU3T  SEPTEMBER 

CTOBER  NOVEMBER  DECEMBER  " 

20  INPUT  "Y esr?'‘;y 


30 
L  ) 

40 


INPUT 

;  » 

IF  m  <0 


Month?  (1-12,0  for 


a >1S  THEN 


TO 


so 

60 

70 

30 

90 

100 

110 

120 

130 


LPRINT  TAB  12;  v*  *  • 

IF  »s0  THEN  OO  TO  90 

GO  SUB  130 

GO  TO  20 

FOR  lei  TO  12 

OO  BUB  130 

NEXT  a 

GO  TO  20 

LET  a*u  +1+31#  <»-U  +  INT 


130  LET  a*u +1+31# <»-!! +  INT  ( Cy - 
1)  /A.1  -INT  t3*INT  (  ty+99>  M00/  /4> 
140  IF  M  >2  THEN  LET  a  sy  +  1  <-3 1«  i.ft 

-i)  -int  < i4*w +23> / 10* +znt  ty/4)  - 

INT  <3*INT  (y/100fli  /  4} 

150  LET  a«a-7+lNT  ta/Tn 
160  IF  a-e  THEN  LET  a *7 
170  LET  a«a-l 
160  IF  « -2  THEN  GO  TO  220 
190  LET  d  =31 

200  IF  B«4  OR  a  *6  OR  a =9  OR 
1  THEN  LET  d  *30 
210  GO  TO  S40 

220  LET  d*2©  _ 

230  IF  y-4*INT  AND  NOT 

y-100*INT  ly/1007  -0  OR  y  —400# INT 

ty/400>»0  THEN  LET  d  **29 
240  CLS 

250  LPRINT  TAB  -6  TO  9 

) 

260  LPRINT  '  ”  SUN  MON  TUB  UED  T 

HU  FRI  SRT . ; 

270  IF  3*0  THEN  GO  TO  310 
200  FOR  i*l  TO  a 
290  LPRINT  " 

300  NEXT  i 
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it  . 


31®  FOR  i  ssl  TO  d 
32®  ir  i  <10  THEN  LPRINT  " 

33®  LPRINT  i; 

34.0  LET  Asa  +1 
330  IF  a  -7  #  I  NT  <a,*7/<:0  THEN  GO 
TO  380 
360  LET  a«0 
370  LPRINT 
36®  LPRINT  " 

300  NEXT  i 
4.00  LPRINT  *  ’ 

410  RETURN 
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USER-DEFINED 
CHARACTER 
GENERATOR  AID 

This  brief  program  wll  save  you  time  if  your  are  producing  a  number 
of  user-defined  characters-  Draw  out  the  characters  you  want,  on 
eight  by  eight  grids,  then  enter  the  strings  of  ones  and  zeroes 
relating  to  a  single  line  of  the  grid.  The  program  will  turn  this  string  of 
ones  and  zeroes  into  a  number,  which  is  the  number  you  use  to  get 
the  character  you  want.  Run  it  once,  and  you'd  see  how  easy  it  is  to 
use,  and  how  useful.  Enter  ‘s’  to  stop  ft.  It  is  short  enough  to  be 
worth  typing  in  each  time  you  have  several  characters  to  define. 
Although  it  is  possible  to  achieve  the  same  thing  in  shorter  ways, 
you  lose  the  printout  of  the  cumulative  total. This  growing  total  can 
help  you  learn  to  Visual'  binary  values. 


5 

10 

15 

17 

as 

as 

30 

4.0 

45 

50 

60 

70 

30 


R^M  Character  nunbers 
INPUT  as  _ 

IF  a*»-*S'*  THEN  STOP 
IF  LEN  aS  <>®  THEN  GO  TO  10 
b*0 


LET  X  ml 

FOR  a *6  TO  1  STEP  -1 
LET  b*b+URL  taste)  >  *X 
PRINT  b 


LET  X  =X 


NEXT  a 
PRINT  as;" 
GO  TO  10 


1 

3 

3 

3 

19 

19 

S3 

311 

11010011  311 
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£>Jfl)  100(9 


0 

iei9ie 


170 


120 


GRAPHICS 

DEMONSTRATIONS 
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DIAMOND  GLORY 

Graham  Chariton's  program  treats  you  to  the  delights  of  a  moving 
cursor  creating  constaly  evolving  patterns,  many  of  them  based  on 
diamond  shapes. 


K 


) 


S  BORDER  RND.  PRPER  IN 

JUffR  1:  CL 3 

1©  LET  x»0;  LET  y *IMT  |RND#17 S 
20  LET  a  =0  LET  b  =  INT  fRMOelTE 


30  LET  9  *2  +  INT  fRNX>#2>  .*  LET  C  * 
9:  LET  h  =2>INT  i‘RND#£.»  .  LET  >4  >2* 
INT  (RND*2J 

4.0  IF  S+9>255  OR  e+9  40  THEM  LE 
T  g  ss  -9 

50  IF  X  *  C  >255  OR  X+C40  THEM  LE 
T  C  *-c 

60  IF  b*h>175  OR  b+h^0  THEM  LE 
T  K  *-h 

T  70  IF  y+d>a75  OR  y+4-:0  THEM  LE 

30  LET  isaig 
90  LET  bsb+h 
100  LET  X=X+C 
110  LET  y=y+d 

120  PLOT  *,b;  CVRRlji  ;c-»,y-b 
130  GO  TO  4.0 
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SPARTAN  SPANGLES 

Another  greet  graphics  demonstration  program  from  Graham 
Chariton,  which  allows  you  to  specify  such  things  as  the  colours 
used.  Once  you've  seen  it  running  in  its  listed  form,  add  the  lines 
shown  at  bottom  for  greater  variations  on  the  basic  process. 


a©  INPUT  "Paper  coic<t*r",p 
a©  input  "ins  coi*vr",9 

3®  INPUT  "5y»»4trw.s 
40  INPUT  "L*n9tn"7i ’ 

SO  INPUT  "M",* 

60  INPUT  “F" , f 

70  LET  »*2tPI./l:  LET  :<  «12S.  LET 
^  y*3$:  LET  r  *0 

O©  ©OROCP  p.  FRFER  p;  INK  9.  C 

L5 

90  PLOT  x / y 
10O  FOP  TO  A 

11®  FOP  i  *1  TO  *■ 

120  FOP  J  =1  TO  2 

130  FOP  fc  -1  TO  » 

14.0  LET  x*l*SIN  r 

ISO  LET  y«l*COS  r 

IS®  OPPU  x  y  y 

170  LET  r*r+m 

IS®  IF  y-;»2*PI  THEN  LET  f 

19®  NEXT  fc 

20®  LET  r  *r  -a  4-PI 

21®  IF  r>£#PI  THEN  LET 

22®  NEXT  J 

23®  LET  +  ^  „ 

24©  IF  r  :i2»PI  THEN  LET  r  »r-2»PI 
250  NEXT  i 

2S©  LET  r  =r  +  r  * a  _  _  _  _ 

57©  IF  r  ;»2»PI  THEN  LET  r  «/■  -4*PI 
23©  NEXT  h 
29©  GO  TO  10 


35  INPUT  "c  ",C 
53  LET  Z  «2irI/C 
1O0  FOR  h-1  TO  c 
26©  LET  r  ah *Z 
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SPIRALS 


FIB  your  TV  screen  and  your  Nfe  with  an  elaborate  pattern  in  this 
program  written  by  Jeremy  Ruston.  Note  that  the  blank  lines  (such 
as  30  and  40)  are  achieved  by  entering  a  space  after  the  line 
number,  before  using  ENTER  to  move  It  into  the  body  of  the 
program. 


10  REM  SPIRALS 

20  REM  1902  JEftCM'v'  RUSTON 

30 

40 

SO  DIM  XU) 

60  DIM  VUJ 
70  DIM  L(4> 

SO  DIM  M(4) 

90 

lOO  FOR  X*0  TO  255  STEP  64 
110  FOR  Y*0  TO  17S  STEF  44 
120  LET  XM=XNT  (X/64) 

130  LET  YttsINT  (Y/44) 

140  LET  SMU-0.1 

150  IF  ( XM  —  INT  (Xli/2)  *2)  =  tYM-IN 
T  tYM/2) *2)  THEN  LET  SMU=0.9 
160  LET  X  i  Xi  =X  -*-63  .*  LET  V  {!)  =Yf4 
3 

170  LET  X (2>  =X+62:  LET  Y  v2>  -Y 
160  LET  XI  3)=X:  LET  Y(3i=  V 
190  LET  X(4)  sX;  LET  Y(4)=Y+43 
200  LET  RMU*1-SMU 
210  FOR  1*1  TO  30 
320  FOR  0*1  TO  4 

230  LET  NJ=(J-INT  (J,'4)  *4j  +1 
240  LET  L  <  J)  =RMU*X  {  J)  *-5MU*X(NJ) 

250  LET  M  ( J)  *RMU*Y  IJ)  +^n»J*Y  iNJi 
260  NEXT  J 

270  FOR  0=1  TO  1 
230  PLOT  X(J) .Y  CU) 

25 1  LET  K  = J-l 

202  IF  K  =0  TMEN  LET  K*4 
25  3  IF  SHU  —0.1  iHEii  DRAW  l.  n  J/  -P 
EEK  (23677)  >M  CvJ)  -PEEK  (23676) 

234  IF  SMU&0.9  THEN  DRAW  L(K)-P 
EEK  (23677J  /lilK)  —PEEK  1 23670) 

290  LET  X(U)scL(U) 

300  LET  V ( J) *M ( J> 

.310  NEXT  J 
320  NEXT  I 
3-0  NEXT  V 
040  NEXT  X 
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INSTANT  BLOPPO 


Graham  Charlton's  program  INSTANT  BLOPPO  draws  a  design 
on  the  screen  which  you  cannot  see.  When  the  prompt  appears, 
you  press  ENTER  and  the  pattern  appears  almost  instantaneously. 
Every  press  ol  ENTER  moves  into  you  into  a  different  version  of  the 
pattern.  The  program  is  listed  twice.  In  the  second  listing,  as  you 
can  see,  the  loops  are  indented  which  makes  it  much  easier  to  work 
out  what  is  going  on  in  the  program.  This  indenting  process  is  useful 
to  remember  for  short  programs  if  you  want  to  make  it  perfectly 
clear  what  is  occurring  In  the  program. 


10  BORDER  0:  PAPER  0  INK  0:  C 

20  FOR  X  =  0  TO  355  STEP  4 
30  PLOT  X,0 
40  DRRU  2fc5-2*X..  175 
50  NEXT  X 

50  FOR  Y»0  TO  ITS  STEP  4 
70  PLOT  0>Y 
60  DRAW  afeS,  175 -2  *Y 
90  NEXT  Y 
100  DIM  ASI704> 

110  FOR  X*0  TO  7 
120  FOR  Y=0  TO  7 

13Q  PRINT  OUER  1;  PAPER  X;  INK 
v  ;  AT  0,.  0;  A$ 

140  INPUT  B$ 

150  NEXT  Y 
160  NEXT  X 
170  INK  9 


10 

US 

20 

30 

40 

50 

50 

70 

50 

90 

100 

110 

120 

130 

140 

150 

160 

170 


BORDER  0.  PAPER  B;  INK 


FOR  X  — 0  TO  255  STEP  4 
PLOT  X.0 

DPAU  255  -2  **  175 

NEXT  x 

FOR  w*0  TO  175  STEP  4 
PLOT  0  .  y 

DRRU  255..  17S  2«» 

NEXT  y 
DIM  a* (704? 

FOR  X«0  TO  7 

FOR  y  *0  TO  7  _ 

PRINT  OUER  1;  PAPER 
INK  y ;  AT  0,0;  at 
INPUT  bt 
NEXT  y 
NEXT  X 
INK  9 


c 
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